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SECTION  I 


INTRODUCTION 


1.  BACKGROUND 

Today's  manager  is  often  faced  with  the  dilemma  of 
selecting  a  course  of  action  in  the  face  of  multiple  and 
integrated  goals  or  objectives.  Rarely  is  a  decision  of  any 
magnitude  based  solely  on  a  single  objective  or  goal.  In- 
steadr  the  decision  maker  often  has  several  criteria  upon 
which  to  base  his  decision.  This  program  will  assist  the 
manager  in  his  role  as  a  decision  maker  by  providing  a 
flexible  decision  model  that  will  analyze  complex^  multiple 
criteria  decision  problems.  This  decision  model  uses 
variable  decision  criteria  and  the  analyst's  evaluation  of 
the  relative  importance  of  these  criteria  to  select  a 
preferred  course  of  action.  In  addition^  the  model  is  struc¬ 
tured  to  handle  the  change  of  the  decision  criteria  values  as 
a  function  of  time.  Results  can  be  portrayed  graphically  as 
a  function  of  time. 

Suppose^  for  example,  that  one  were  tasked  with  the 
responsibility  for  selecting  from  a  number  of  alternative 
weapon  systems  the  weapon  system  that  would  best  satisfy  a 
particular  mission.  It  is  apparent  that  there  would  be  many 
factors  that  would  impact  upon  a  decision  of  this  magnitude. 
The  potential  destructive  capability  of  the  weapon  system, 
the  current  research  and  development  (R&D)  program  status, 
the  expected  improvements  in  the  system  as  a  function  of 
time,  the  expected  life  cycle  cost  of  the  weapon  system, 
etc.,  would  significantly  impact  upon  this  decision.  Initial 
cost  would  also  certainly  impact  upon  the  economic 
feasibility  of  a  particular  weapon  system. 


It  is  also  easily  recognized  that  the  factors  noted 
above  may  vary  in  importance.  It  is  in  the  model  development 
and  in  the  use  of  this  particular  technique  that  one  identi¬ 
fies  the  criteria  (parameters)  that  will  be  used  in  making 
that  selection  and  then  rates  these  parameters  as  a  function 
of  their  importance.  It  can  be  seen  that  if  the  decision  can 
be  made  at  a  future  time,  then  the  importance  of  particular 
parameters  may  change  significantly  with  time.  For  example, 
the  total  ordnance  delivery  capability  of  a  particular  weapon 
system  may  vary  significantly  over  a  25-year  period.  The  R&D 
effort  necessary  and  the  expected  results  could  significantly 
change  the  performance  of  a  particular  weapon  system.  It  is 
with  this  in  mind  that  the  model  was  developed  with  the 
option  to  take  into  account  the  effects  of  change  in 
parameter  values  as  a  function  of  time. 

2.  PURPOSE  AND  SCOPE 

The  purpose  of  this  model  is  to  provide  a  flexible, 
interactive  computer  program  for  use  in  multiple  criteria 
decision  problems.  By  following  procedures  provided  interac¬ 
tively  by  the  program  on  a  computer  terminal,  the  analyst  is 
able  to  introduce  the  parameters,  the  data  base,  and  the 
ratings  of  the  parameters  necessary  to  obtain  a  problem 
solution.  The  results  are  presented  in  tabular  and  graphic 
form. 

3.  GENERAL  DESCRIPTION  OF  THE  PROGRAM 

The  model  consists  basically  of  three  major  programs: 
the  parameter  package  program  (PPP);  the  user's  preference 
package  program  (UPPP);  and  the  system  selection  model 
program  (SSMP). 

The  parameter  package  program  allows  the  analyst  to 
identify  the  parameters  which  are  used  as  criteria  in  the 
decision  model  in  choosing  the  optimal  result  and  to  enter 


2 


the  parameter  data  for  each  system.  PPP  creates  two  data 
files:  PP  (or  the  parameter  package),  which  contains  the 
parameter  data,  and  HEADER,  which  contains  the  problem  size 
and  various  names  of  systems,  subsystems,  and  parameters. 

The  user's  preference  package  program  is  used  to 
evaluate  and  rate  the  parameters.  UPP  creates  a  third  data 
file,  UPP  (or  the  user's  preference  package)  containing  the 
user's  normalized  ratings  for  the  parameters.  The  user's 
preference  package  is  constructed  after  the  parameter  package 
has  been  developed.  It  is  necessary  that  those  parameters 
identified  in  the  parameter  package  program  be  the  same 
parameters  that  are  identified  in  the  user's  preference 
package  program.  In  the  UPPP,  the  analyst  is  given  a  choice 
of  either  identifying  the  importance  of  the  parameters  by 
using  the  paired  comparison  technique  or  using  his  own 
evaluation  technique  for  determining  the  relative  importance 
(ranking)  of  each  parameter.  The  analyst  then  ranks  the 
parameters  from  the  most  to  the  least  important  and  rates 
each  parameter  accordingly  with  a  value  from  1  to  0.  The 
analyst  can  establish  different  sets  of  ratings  for  different 
situations. 

Data  from  these  two  packages  are  then  used  in  the  system 
selection  model  program.  This  program  integrates  the  data 
from  the  two  packages  and  utilizes  this  information  in 
selecting  the  optimal  solution  as  a  function  of  the  parame¬ 
ters  discussed  above. 

As  an  example,  suppose  one  is  asked  to  make  a  decision 
as  to  which  auxiliary  power  system  should  be  selected, 
procured,  and  introduced  into  the  Air  Force  inventory  in  the 
years  1980  to  2000.  First,  the  analyst  would  select  those 
parameters  that  would  be  used  to  differentiate  among  the 
power  systems.  For  example,  some  parameters  may  be 
quantitative  such  as  acquisition  cost,  life  cycle  cost. 
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teliabilityr  or  other  numerical  descriptions  of  thf>  systems. 
Once  these  parameters  are  identified,  the  corresponding 
values,  either  actual  or  forecasted,  would  be  entered  into 
the  model.  These  values  may  be  in  units  or  dollars,  gallons, 
or  any  form  which  enables  the  program  to  evaluate  each 
specific  parameter  relative  to  each  system.  These  parameters 
are  next  ranked  and  rated  by  the  analyst  according  to  the 
relative  importance  of  each  parameter  in  the  set. 

Certain  parameter  data  may  not  be  in  a  quantitative 
form.  Therefore,  the  model  has  been  structured  to  operate 
with  nonquantitative  data  by  using  qualitative  terms  such  as 
very  poor,  poor,  fair,  good,  or  excellent  to  define  the 
values  of  particular  nonquantitative  paramet  >.  in  the 
model  development  of  this  selection  problem,  the  'alyst  has 
defined  the  important  parameters  in  this  partici  decision 
which  would  be  applicable  and  has  quantified  th  ta  rela¬ 
tive  to  the  systems  under  consideration. 

The  analyst  must  next  evaluate  the  importance  of  each  of 
the  different  parameters.  As  mentioned  above,  acquisition 
cost,  life  cycle  cost,  reliability,  and  other  parameters  have 
have  been  identified  as  important  in  this  decision  problem. 
In  this  particular  portion  of  the  program,  referred  to  as  the 
user's  preference  package,  it  is  necessary  for  the  analyst  to 
rank  all  of  the  parameters  on  a  scale  from  most  important  to 
least  important.  From  this  ranking,  the  analyst  determines  a 
rating  for  each  of  the  parameters  on  a  scale  from  1  to  0. 

For  example,  in  the  case  mentioned  above,  the  parameters 
may  be  ranked  in  order  of  importance  by  the  decision  maker  as 
acquisition  cost,  reliability,  life  cycle  cost,  and  other 
parameters.  These  rankings  are  next  rated  by  the  analyst 
from  1  to  0.  Table  1  exemplifies  this  ranking  methodology. 

The  analyst  has  now  completed  both  the  parameter  package 
and  the  user's  preference  package  programs.  These  data  are 
automatically  fed  into  the  system  selection  model  program 
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TABLE  1 


RANKING/RATING  EXAMPLE 


Unranked 

Parameters 

Parameter 

Ranking 

Ranked 

Parameters 

Parameter 

Rating 

Acquisition  Cost 

1 

Acquisition  Cost 

0.95 

Life  Cycle  Cost 

3 

Reliability 

0.80 

Reliability 

2 

Life  Cycle  Cost 

0.40 

Other  Parameters 

4 

Other  Parameters 

0.10 

5 


(SSMP)  when  in  the  interactive  mode  from  a  computer  terminal. 
If  desired,  the  SSMP  outputs  at  the  terminal  the  tabular  and 
graphic  data  and,  in  this  example,  will  show  which  systems 
should  be  procured  in  which  years  between  1980  and  2000. 

Figure  1  shows  how  the  three  programs  interact. 

4.  UNCERTAINTY  OF  THE  DECISION  MODEL 

Rarely  is  an  analyst  certain  that  the  data  are 
absolutely  correct.  Neither  is  the  analyst  always  confident 
as  to  which  data  are  critical  to  the  decision.  Because  of 
these  uncertainties,  it  is  important  that  current  models 
address  this  topic  of  uncertainty. 

In  this  multiple  criteria  decision  model,  uncertainty 
may  exist  in  the  values  of  the  parameters  in  the  parameter 
package  and  the  values  of  the  ratings  in  the  user's  prefer¬ 
ence  package.  The  uncertainty  associated  with  the  parameters 
stems  from  the  fact  that  all  future  parameter  values  are 
merely  estimates  and  that  current  or  past  data  may  be  biased 
by  the  system  used  in  collecting  the  data.  The  user's 
preference  ratings  are  at  best  subjective  and  may  actually 
vary  widely. 

The  example  discussed  earlier  concerns  the  selection  of 
power  systems  for  the  next  twenty  years.  Obviously,  the 
costs,  performances,  etc.,  will  change  over  time,  and 
estimating  these  factors  up  to  twenty  years  hence  can  be 
risky  indeed.  No  matter  how  exhaustive  or  expensive  the  data 
search,  a  guarantee  of  a  certain  value  or  future  still  does 
not  exist.  Therefore,  the  topic  of  uncertainty  is  important, 
especially  when  the  decision  model  is  used  to  predict  a 
future  condition. 

When  parameter  data  and  user  preferences  are  known  to  be 
one  hundred  percent  accurate  the  results  are  risk  free. 
However,  this  is  rarely  the  case  as  the  accuracy  of  future 


values  is  always  uncertain  or  risky.  This  model  is  not 
structured  such  that  a  direct  computation  of  system  values 
given  parameter  uncertainties  is  possible.  The  authors  sug¬ 
gest  the  following  approach  to  addressing  uncertainty  with 
this  model.  First,  determine  the  most  important  parameters. 
This  can  be  accomplished  by  selecting  those  parameters  with 
the  highest  user  preference  values  and/or  the  highest 
relative  valued  parameters.  Second,  test  the  sensitivity  of 
the  model  to  small  changes  in  the  items  identified  in  step 
one  by  executing  the  model  with  individual  parameter  value 
changes.  Third,  by  experience,  additional  data,  or  other 
methodology,  determine  reasonable  ranges  for  the  sensitive 
parameters.  This  will  establish  upper  and  lower  limits  on 
the  important  and  model  sensitive  parameters.  Fourth,  exe¬ 
cute  the  model  using  combinations  of  the  above  parameters 
throughout  the  ranges  identified  in  step  three.  A 
compilation  of  many  runs  will  provide  a  mapping  of  the 
effects  of  varying  the  sensitive  parameter  values.  This 
mapping  will  be  a  visual  display  of  the  system  value 
variability  as  a  function  of  the  uncertainty  of  the  parameter 
data  and/or  user  preferences. 
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SECTION  II 


PROGRAMMING  STANDARDS 

1.  PORTABILITY  FEATURES 

The  programs  described  in  this  report  are  written  in 
standard  ANSI  FORTRAN  IV.  To  enhance  the  portability  of 
these  programs  and  in  order  to  allow  the  programs  to  be  used 
on  other  computer  systems,  certain  conventions  are  followed. 
These  conventions  include: 

a.  No  more  than  five  continuation  cards  are  used. 

b.  A  maximum  field  width  of  four  is  used  for  the  alpha 
numeric  format,  i.e.,  A4.  This  may  differ  in  the  graphics 
program. 

c.  No  EQUIVALENCE  statements  are  used. 

d.  Unit  numbers  in  input/output  statements  appear  as 
variables,  and  their  values  are  located  in  a  DATA  statement. 
This  feature  allows  modification  of  the  unit  numbers  with  one 
statement  change. 

e.  Hollerith  formatting  is  used  exclusively. 

2.  PROVISIONS  FOR  FUTURE  MODIFICATION 

The  system  selection  model  programs  are  designed  to  allow 
easy  modification  and  expansion. 

Features  include: 

a.  The  same  variable  names  and  labeled  COMMON  statements 
are  used  throughout  all  programs  but  the  graphics  program. 
This  is  because  the  graphics  programs  are  machine-dependent, 
and  changes  to  the  programs  may  be  extensive  if  the  program 
is  to  be  used  on  another  computer  system. 

b.  The  input/output  unit  numbers  can  be  modified  easily 
by  changing  the  appropriate  DATA  statements  in  the  BLOCK  DATA 
module  in  each  program. 
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c.  The  do-loop  indices,  where  applicable,  are  given  by 
integer  variables  in  place  of  constants. 

d.  The  graphics  programs  are  optional.  As  a  separate 
segment  they  are  easy  to  drop  from  the  model. 

e.  The  PROCEDURE  files  coordinate  the  attaching  and 
returning  of  the  data  files.  The  PROCEDURE  files  are  for 
convenience  and  have  no  bearing  on  the  programs  themselves. 

f.  If  the  programs  are  to  be  modified  to  run  larger 
problems,  the  user  should  consult  Table  2,  to  help  facilitate 
array  changes.  Another  program  called  system  selection  model 
program  in  background  (SSMPB)  is  set  up  to  run  the  larger 
problems.  For  further  information  consult  Appendix  B. 

3.  POTENTIAL  DIFFICULTIES 

Some  features  which  may  potentially  cause  problems 
include: 

a.  Labeled  COMMONS  are  used. 

b.  Unformatted  input/output  is  used. 

c.  The  program  SSMP  and  the  two  graphics  programs  are 

overlaid.  Overlaying  was  used  to  allow  these  large  programs 
to  run  interactively.  The  overlays  can  be  changed  to  subrou¬ 
tines  by:  (1)  deleting  the  OVERLAY  cards;  (2)  changing 

PROGRAM  cards  to  SUBROUTINE;  (3)  adding  RETURN  Statements; 
and  (4)  changing  CALL  statements  to  call  the  subroutines. 

d.  The  programs  are  executed  using  PROCEDURE  files  to 
attach  and  return  data  files.  This  feature  allows  the  user 
to  specify  a  different  file  name  for  each  problem.  PROCEDURE 
files  are  system-dependent;  for  further  information,  see 
Section  IV.3. 


TABLE  2 


AI^YS  THAT  CAN  BE  MODIFIED 


Labeled  COMMON  Name 

Array  Name 

/HDRl/ 

SUB1NM(NSUB1,4) 

SUB2NM (NSUBl , NSUB2 , 4 ) 
PARMAM(NPARM,4) 

NUM (NPARM) 

RATED (NPARM) 

YN (NPARM) 

INVERT (NPARM) 

/HDRl/ 

SCNDSC(NSCEN,15) 

/PARAMl/ 

CKPRM (NPARM) 

ABV (NPARM) 

BELW( NPARM) 

RLOWR( NPARM) 

HIR (NPARM) 

RTD (NPARM) 

I RANGE (NPARM) 

ISWNO (NPARM) 

/PARAM2/ 

ELIM ( INDEX ,10, NPARM) 

/PARAM3/ 

MATRIX ( NPARM , INDEX ,10) 

/PARAM4/ 

SYSNRM( INDEX, 10) 

/RTG/ 

RTING (NPARM) 

/RTNG/ 

RATING (NSCEN, NPARM) 

/RTING/ 

RATING (NPARM) 

None 

PARAM( INDEX, 10) 

VPARAM( INDEX, 10) 

ICOUNT (NPARM) 
lORDER (NPARM) 

ICNT (NPARM) 

PSUM (NPARM) 

PAVE (NPARM) 

Notes:  NSUBl  *  Number  of  Level  1  Subsystems 
NSUB2  -  Number  of  Level  2  Subsystems 
NPARM  »  Number  of  Parameters 

INDEX  »  1  for  Case  1* 

NSUBl  for  Case  2 

NSUBl  X  NSUB2  for  Case  3 

*  For  an  explanation  of  Cases  1,  2,  and  3,  see 
Section  IV,  l.a  page  15. 
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SECTION  III 


ENVIRONMENT  AND  INTERFACES 

1.  SYSTEM  DESCRIPTION 

The  development  of  the  system  selection  model  programs 
has  been  conducted  on  the  Wright-Patterson  Air  Force  Base  ASD 
computer  system.  Two  large  CDC  computers  support  ASD,  a  CDC 
CYBER  175  and  a  CDC  CYBER  74.  The  systems  are  for  two 
different  functions.  The  CYBER  175  is  used  for  interactive 
support,  while  the  CYBER  74  is  used  for  batch  processing  and 
interactive  graphics.  It  is  possible  to  enter  jobs  on  one 
computer  system  and  have  it  processed  on  the  other.  This 
ability  is  due  to  the  fact  that  both  systems  are  architec¬ 
turally  compatible  and  share  the  same  permanent  disk 
facilities  and  tape  drives.  For  further  information,  consult 
the  Introduction  to  ASD  Computer  Center  Guide  (1). 

2.  HARDWARE  CHARACTERISTICS  AND  CONSTRAINTS 

Both  systems  have  a  large  amount  of  central  memory 
available.  The  CYBER  175  has  262,000  (60  bit)  words,  and  the 
CYBER  74  has  131,000  words.  Each  system  has  20  peripheral 
processing  units  available  for  input/output.  Bach  system  can 
handle  12  jobs  in  central  memory  at  one  time.  Jobs  not  yet 
processed  remain  in  queues.  High  speed  readers  of  1,200 
characters  per  minute  (cpm),  card  punches  of  250  characters 
per  minute,  and  line  printers  at  1,200  lines  per  minute  (1pm) 
are  available.  There  exist  at  present  7-  and  9-track  tape 
drives,  with  the  9-track  tape  drives  capable  of  handling  up 
to  6,250  bits  per  minute  (bpm).  The  hardware  facilities  also 
include  a  3.3  billion  6-blt  character  disk  storage 
capability,  with  approximately  2.4  billion  bytes  available 
for  user  permanent  file  storage. 
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3.  SOFTWARE  ENVIRONMENT  j. 

The  operating  system  in  current  use  on  the  CDC  systems  is  |/ 

the  Network  Operating  System/Batch  Environment  (NOS/BE).  The 
decision  model  programs  were  developed  on  the  CDC  INTERCOM  | 

software.  INTERCOM  is  the  CDC  software  that  supports  the  , 

interactive  access  to  the  CDC  computer  system. 

I 

I' 

4.  INTERFACE  CHARACTERISTICS 

The  system  selection  model  progam  (SSMP)  will  producer  as 
an  option,  TEKTRONIX  graphs  as  output.  TEKTRONIX  graphics 
are  accessed  through  a  number  of  FORTRAN  subroutines.  The 
TEKT^NIX  software  used  is  PLOT~10/Advanced  Graphics-II.  For 
best  results,  the  graphics  program  should  be  executed  on  a 
TEKTRONIX  terminal  that  has  at  least  a  5”  X  7"  screen. 

Terminals  that  are  adequate  include  the  TEKTRONIX  4010,  4051, 
and  4052  terminals. 
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SECTION  IV 


FEATURES  OF  THE  PROGRAM 

1.  FUNCTIONAL  OVERVIEW  AND  CAPABILITIES 

The  system  selection  model  program  (SSMP)  determines  the 
optimal,  or  best  system  from  a  number  of  choices.  A  problem 
must  be  able  to  meet  certain  specifications  in  order  to 
execute  SSMP. 

a.  Choices  as  Systems 

The  choices  are  termed  systems.  Sometimes  the 
choices  are  complex  and  can  be  broken  down  into  subsystems. 
As  an  example,  a  student  must  choose  among  different 
colleges.  This  student  also  cannot  make  up  his/her  mind  as 
to  which  major  he/she  should  take  when  attending  college. 
Assume  that  the  four  choices  of  majors  are  chemical 
engineering,  mechanical  engineering,  finance,  and  accounting. 
Assuming  that  the  student  can  get  accepted  into  any  college 
with  any  choice  of  major,  the  problem  can  be  set  up  as  shown 
in  Figure  2.  In  this  figure,  college  is  the  system,  the 
schools  of  business  and  engineering  are  level  1  subsystems, 
and  the  various  departments  are  level  2  subsystems. 

The  breakdown  of  the  system  into  subsystems  is 
optional.  The  case  where  systems  are  not  broken  into  subsys¬ 
tems  is  labeled  Case  1.  Case  2  is  when  the  system  is  broken 
down  into  one  level  of  subsystems.  Case  3  is  when  the  system 
is  broken  down  into  two  levels  of  subsystems,  as  in  this 
example . 

To  continue  further  with  the  example,  the  student 
specifies  the  colleges  as:  Harvard,  Massachusetts  Institiite 
of  Technology,  University  of  Layton,  California  Institute  of 
Technology,  and  Yale.  This  particular  problem  needs  to 
expand  to  include  level  1  and  level  2  subsystems,  and  it  must 
do  so  in  what  is  called  a  "balanced”  fashion.  That  is,  there 
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Figure  2.  Problem  Tree  for  College  Selection  Problem 


must  be  at  least  two  level  1  subsystems;  if  only  one  is 
desired,  then  another  must  be  entered  into  the  model  to 
create  a  "balanced"  tree.  This  may  be  accomplished  by 
entering  a  level  1  subsystem  named  "BLANK"  and  entering  zeros 
for  its  parameter  data  so  that  it  does  not  influence  the 
decision.  Similarly,  each  level  1  subsystem  must  have  at 
least  two  level  2  subsystems,  and  each  must  be  broken  down 
into  the  same  number  of  level  2's.  Of  course,  if  the 
particular  problem  is  Case  1  or  2,  that  is,  deals  only  with 
systems  or  with  systems  and  level  I's,  then  the  stipulations 
on  level  1  or  level  2  subsystems  may  be  ignored  as  they  do 
not  enter  into  the  problem  tree, 
b.  Determination  of  Parameters 

The  parameters  to  be  used  in  judging  the  colleges 
must  be  determined.  Some  of  the  parameters  for  this  example 
might  include  tuition,  reputation  of  school,  number  of 
students  in  department,  etc.  The  program  recognizes  three 
different  types  of  parameters:  (1)  numerical  (for  example, 
tuition);  (2)  rated  (for  example,  reputation  of  school  can  be 
specified  as  excellent,  good,  etc.);  and  (3)  qualifying  to 
indicate  whether  or  not  a  system  possesses  a  certain  quality 
(such  as  off-campus  housing  for  freshmen).  The  system  will 
be  eliminated  if  it  does  not  possess  the  quality;  data  is 
entered  in  a  yes/no  form. 

Several  examples  of  this  college  selection  problem 
appear  in  Appendix  C. 

Problems  such  as  this  example  can  be  run 
interactively  so  long  as  the  problem  size  is  not  too  large. 
To  execute  these  programs  interactively  on  Wright-Patterson's 
CDC  CYBER  175,  the  problem  size  is  limited  to: 

(1)  No  more  than  10  systems. 

(2)  No  more  than  40  parameters. 
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(3)  No  more  than  the  product  of  seven  for  level  1 
and  level  2  subsystems.  For  example: 

(a)  Seven  level  1  subsystems  and  no  level  2 

subsystems. 

(b)  Two  level  1  subsystems  and  three  level  2 


subsystems. 

(c)  Three  level  1  subsystems  and  two  level  2 


subsystems. 

If  the  problem  size  is  larger,  the  problem  can  be  run 
in  background  or  batch  by  changing  the  appropriate  dimensions 
in  the  COMMON  statements.  The  only  limit  that  cannot  be 
changed  without  some  rewriting  of  the  program  is  the  number 
of  systems.  For  instructions  and  examples  on  running  SSMPB 
see  Appendix  B. 

The  user  should  consider  the  special  case  where  time 
appears  as  a  subsystem.  If  a  problem's  parameter  data  change 
with  time,  SSMP  can  be  used  to  forecast  the  optimal  system  in 
the  future.  Within  the  graphics  capability  of  the  program  a 
special  program  is  available  which  provides  a  time  graph  for 
the  specific  problem  of  choosing  the  optimal  system  for  five 
time  intervals  when  time  is  a  level  1  or  2  subsystem.  This 
graph  is  different  from  the  other  graphs  created  by  the 
normal  histogram  graphics  feature,  in  that  it  plots  time 
versus  the  system  values.  If  the  user  believes  that  the 
output  available  is  inadequate  for  his  needs,  the  user  can 
add  other  output  routines  rather  easily.  For  more  informa¬ 
tion  on  modification  of  these  programs  see  Section  II. 


2.  INPUT  AND  OUTPUT 


This  section  describes  line-by-line  how  to  execute  the 
parameter  package  program  (PPP),  the  user's  preference 
package  program  (UPPP),  and  the  system  selection  model 
program  (SSMP).  Examples  are  provided  to  help  illustrate 
each  program.  A  generator  selection  problem  is  used  as  an 
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example  of  a  Case  3  problem  where  four  generators  are  the 
systems;  the  power  sizes,  250  kW,  50  kW,  and  10  kw  are  level 
1  subsystems;  and  the  level  2  subsystems  are  the  years  1980 
and  2000.  The  problem  tree  for  the  generator  selection 
problem  is  shown  in  Figure  3. 
a.  Input 

(1)  Parameter  package  program  (PPP)  to  create  the 
HEADER  file. 

For  PPP  (using  the  command  CRTE)  to  set  up  the 
data  file  HEADER,  the  user  is  required  to  specify: 

(a)  Data  base  name:  specifies  the  problem 

name  and  should  contain  no  more  than  16  alphanumeric  charac¬ 
ters.  If  more  than  16  characters  are  entered,  the  program 
truncates  the  name. 

(b)  Number  of  systems  should  not  exceed  ten. 

(c)  Number  of  level  1  subsystems:  enter  as  a 
two-digit  number;  this  specifies  the  number  of  level  1 
subsystems  per  system. 

(d)  Number  of  level  2  subsystems:  these 

specify  the  number  of  level  2  subsystems  per  level  1  subsys¬ 
tems  and  are  entered  as  a  two-digit  number.  If  no  subsystems 
are  desired,  be  sure  to  enter  the  appropriate  zeros.  Also, 
level  2  subsystems  cannot  be  specified  if  no  level  1 
subsystems  exist. 

(e)  Number  of  parameters:  enter  as  a  two- 
digit  number;  the  value  should  not  exceed  the  value  of  40  for 
the  interactive  version  of  SSMP. 

(f)  System  setname:  specifies  the  setname  for 
the  system.  For  example,  the  system  setname  for  the  diesel 
engine  and  Stirling  engine  could  be  generators.  The  setname 
should  contain  no  more  than  16  alphanumeric  characters. 
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(g)  System  names:  these  specify  the  specific 
names  foe  each  system,  and  each  should  have  no  more  than  16 
alphanumeric  characters. 

(h)  Level  1  subsystem  setname:  if  level  1 
subsystems  have  been  opted,  the  user  enters  the  setnames 
describing  the  level  1  subsystems.  A  maximum  of  16  alphanu¬ 
meric  characters  is  allowed. 

(i)  Level  1  subsystems  names:  if  the  level  1 
subsystem  option  has  been  chosen,  the  user  enters  the 
specifi<^  names  for  the  level  1  subsystems.  A  maximum  of  16 
alphanumeric  cha’^acters  is  allowed. 

(j)  Level  2  subsystem  setname:  if  the  level  2 
subsystems  option  has  been  chosen,  the  user  enters  the  set- 
names  describing  the  level  2  subsystems.  A  maximum  of  16 
alphanumeric  characters  is  allowed. 

(k)  Level  2  subsystem  names:  if  the  level  2 
subsystems  option  has  been  chosen,  the  user  enters  the 
specific  names  for  the  level  2  subsystems.  A  maximum  of  16 
alphanumeric  characters  is  allowed. 

(l)  Parameter  name:  the  parameter  names  are 
entered,  and  a  maximum  of  16  alphanumeric  characters  is 
allowed. 

(m)  Type  of  parameter:  the  user  is  required 
to  identify  the  type  of  parameter,  either  numerical,  rated  or 
qualitative.  When  the  parameter  is  specified  numerically, 
the  user  is  asked  whether  or  not  he  wishes  to  invert  the 
parameter.  The  SSMP  determines  the  best  system  from  the 
numerical  data  by  considering  the  lowest  values  as  the  best 
value.  See  Appendix  A  for  the  inverting  algorithm.  In  cases 
where  this  method  of  inverting  may  prove  to  be 
unsatisfactory,  the  user  must  treat  the  parameter  data  with  a 
more  appropriate  method  before  entering  it  in  the  parameter 


package  program  (ppp).  of  courser  the  user  should  not  indi¬ 
cate  that  the  data  are  to  be  inverted  if  the  data  have 
already  been  inverted  by  some  other  means. 

If  the  parameter  is  specified  as  a  rated 
parameter,  the  user  can  describe  the  parameter  in  terms  of 
very  poor,  poor,  fair,  good,  or  excellent.  The  program 
assigns  numerical  values  to  the  ratings,  and  SSHP  evaluates 
the  parameters  on  the  basis  of  these  relative  values. 

If  the  parameter  is  specified  as  a  quali¬ 
fying  parameter,  this  parameter  is  used  to  check  whether  or 
not  the  systems  and  its  subsystems  have  this  qualifier.  If 
not,  that  system  or  subsystem  is  eliminated  from  the  decision 
process.  See  Figure  4  for  an  example  using  the  generator 
selection  problem. 

(2)  Parameter  package  program  (PPP)  to  create  the 
parameter  package  (PP)  file. 

For  PPP  (using  the  command  MNIN)  to  set  up  the 
data  file  PP,  the  user  is  required  to  specify: 

(a)  For  a  numerical  parameter:  the  numerical 
data,  in  any  format,  of  that  system  or  subsystem. 

(b)  For  a  rated  parameter:  the  rating  of  that 
system  or  subsystem. 

(c)  For  a  qualifying  parameter:  the  user 
specifies  whether  or  not  that  system  or  subsystem  has  that 
qualifier . 

(3)  User's  preference  package  program  to  create  the 
user's  preference  package  (UPP)  file. 

For  UPPP  (using  the  command  CRTE)  to  set  up  the 
data  file  DPP,  the  user  is  required  to  specify: 

(a)  Number  of  scenarios:  scenarios  describe 
the  different  situations  where  the  rating  values  for  the 
parameters  would  differ.  For  example,  in  the  college  selec¬ 
tion  problem,  emphasis  might  shift  for  some  parameters 
depending  on  how  much  a  student  could  afford.  Therefore, 
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PARAHCTER  PACKAGE  PROGRAM 


COMHANOS  AVAILABLE: 

CRTE  -  CREATES  FILE  OF  NAMES 

HNIN  -  ALLOWS  manual  ENTERING  OF  PARAMETER  VALUES 
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END  •  ENDS  PROGRAM 
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Figure  4  -  Generator  Selection  Problem  Using 
PPP  With  Command  CRTE 
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Figure  4  -  Continued 
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Figure  4  -  Continued 
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several  different  scenarios  could  be  set  up.  As  examples, 
one  scenario  could  give  the  student  no  limit  on  his  tuition 
expenses  while  another  scenario  might  show  the  student  as 
having  a  $2,000  scholarship.  Therefore,  the  ratings  on  some 
parameters  might  vary  from  scenario  to  scenario.  There  is  a 
maximum  limit  of  25  scenarios. 

(b)  Scenario  description:  the  user  can  enter 
up  to  60  alphanumeric  characters  describing  each  scenario. 

To  choose  how  to  rate  the  parameters  the 
user  should  specify: 

(i)  Paired  comparison:  the  user  can  rank 
the  parameters  in  importance  by  comparing  pairs  of  parameters 
and  choosing  which  parameter  is  more  important  than  the 
other. 

(ii)  Directly  rate  the  parameters:  if  the 
user  performs  the  paired  comparison,  the  program  ranks  the 
parameters  and  the  user  specifies  a  rating  from  0  to  1.  If 
the  paired  comparison  is  not  chosen,  the  parameters  are  not 
ranked,  and  the  user  just  rates  the  parameter  from  0  to  1. 
For  UPPP  (using  the  ADD  command)  the  user  can  add  additional 
scenarios  to  the  data  file  UPP.  The  only  difference  between 
this  command  and  the  command  CRTE  is  that  the  user  specifies 
the  number  of  scenarios  to  be  added.  See  Figure  5  for  an 
example  of  the  generator  selection  problem  using  UPPP  with 
the  commands  CRTE  and  LIST. 

(4)  System  selection  model  program  (SSMP) 

To  perform  the  decision  process,  the  user  is 
required  to  specify  the  user's  choice  of  either  entering 
parameter  ratings  or  using  the  parameter  ratings  that  are  set 
up  in  the  scenarios  in  the  UPP  data  file.  SSMP  asks  the 
user,  "Do  you  wish  to  enter  your  own  ratings?"  If  yes,  the 
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Figure  5  -  Generator  Selection  Problem  Using 
UPPP  With  Command  CRTE 
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Figure  5  -  Concluded 


user  enters  a  scenario  description  with  a  limit  of  60  alpha¬ 
numeric  characters  and  parameter  ratings  ranging  from  0  to  1. 
If  no/  the  program  prints  out  the  available  scenarios  and  the 
user  chooses  a  scenario. 

The  user  then  chooses  the  number  of  parameters 
to  be  included  in  the  decision  process, 

(a)  Parameter  choices:  the  user  enters  the 
integer  number  associated  with  the  chosen  p&rameters.  The 
integer  numbers  must  be  entered  from  the  lowest  to  the 
highest  values. 

(b)  Parameter  limits:  the  user  can  specify  a 
limit  on  the  parameters  so  that  any  systems  or  subsystems 
that  do  not  satisfy  this  limit  are  eliminated  from  the  deci¬ 
sion  process. 

(i)  If  the  parameter  is  numericalf  the 
user  can  specify  a  numerical  limit  of  greater  than,  lesser 
than,  or  both. 

(ii)  If  the  parameter  is  rated,  the  user 
can  specify  a  rating  that  the  parameter  data  has  to  satisfy 
or  exceed. 

(iii)  If  the  parameter  is  qualifying,  the 
user  cannot  specify  a  limit  because  the  parameter  either  has 
that  quality  or  does  not. 

(c)  Choice  of  output:  the  user  can  choose 
between  tabular,  graphic,  or  both. 

(i)  If  no  graphic  output  is  desired,  the 
user  can  execute  the  program  again. 

(ii)  If  graphic  output  is  chosen,  the  user 
can  choose  the  standard  graphic  output  or  the  time  versus 
system  rating  graph,  depending  on  whether  or  not  time  is  a 
subsystem. 

See  Figure  6  for  an  example  of  the  generator 
selection  problem  using  SSMP. 


32 


SYSTEM  SELECTION  NOOEL  PROS#*** 


LIST  OF  tVAlLABLC  BtRAMETERS 


1  —  ACQUISITION  COST 

2  —  LIFE  cycle  cost 
I  «-  system  EFF. 

A  —  start  up  time 

5  —  SHUTOOUN  TIME 

6  —  “ELIABILITY 

7  —  MAINT.  AN3  QPER. 

8  —  lifetime 

9  —  thermal  energy 

1C  —  VOLUME/SIZE 
H  —  WEIGHT 

II  —  Fuel  used 

II  —  gro.th  pctcntial 

m  —  ENVIRON',  constr. 


00  YCU  LISM  TO  enter  YOUR  0«.N  RATINGS  ?  lYES/NO) 
NC 


scenarios  available 

1  —  AUX  back-up  p«r  fop  crit.  facilities  conus 

2  —  AUX  BACK-UP  PWfi  FOR  CRIT.  FACILITIES  OVERSEAS 

3  —  AUX  BACK-UP  PWR  FOR  CRIT.  FACILITIES  REMOTE 


E'.'TfcR  NO  OF  choice  OF  SCENARIO 
I 


Figure  6  -  Generator  Selection  Problem  Using  SSMP 
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GENERtTOt)  select  CSSE  3  ELIHIHATXOM  T«BLE 


*ux  e*CR-oP 

POP  CRIT. 

PAClLITIES  OVERSEAS 

PAGE 

T 

CIESEL 

?5C  K, 

2CG0 

•>AIST.  ANO  CPEP. 

> 

SCCC.ICO 

DIESEL 

£0  Ktf 

1980 

systep  epp. 

< 

6c.:o: 

PUEL  CELL 

SO  kh 

1980 

start  up  tine 

< 

S.lCC 

c» 

START  UP  TIKE 

> 

lu.co: 

DIESEL 

SO  K'. 

2000 

ACCUISITICN  cost 

> 

I5COO.OOC 

DIESEL 

10  KN 

1980 

ACCUISITION  COST 

> 

ISCOO.LCC 

STIRLING  ENGINE 

250  Kk 

1980 

SYSTEP  EPP. 

< 

8C..CC 

STIRLING  ENGINE 

250  Nk 

1980 

start  up  TIP.E 

CP 

start  up  tine 

< 

S.LCC 

> 

3C..C: 

STIRLING  ENGINE 

250  Kk 

1960 

GRTwTh  potential 

<60C0 

STIRLING  ENGINE 

250  Kk 

2000 

ACOUISITICN  COST 

> 

xscoc.ccc 

STIRLING  ENGINE 

250  Kk 

2000 

LIPE  CYCLE  COST 

> 

zoccc.coo 

SCRER4T0S  select  C*SE  3  EtiniNATION  T»8UE 


alx  sack 

-gp  Pvfi 

POfl  CRIT. 

PACILITitS  OVERSEAS 

PAGE 

8 

STIRLING 

ENGINE 

250  Kk 

2000 

start  up  TIkC 

< 

e  .  -  -  • 

CP 

START  UP  TIPE 

> 

sc.Lc: 

STIRLING 

ENGINE 

250  kk 

20GC 

GRC.TP  POTENTIAL 

<GOCC 

STIRLING 

ENGINE 

50  KW 

198C 

SYSTEY  £PP. 

< 

STIRLING 

ENGINE 

SO  KU 

1980 

start  up  TlPE 

< 

9*C:C 

OP 

START  UP  TI-E 

> 

3S.C3C 

STIRLING 

ENGINE 

50  Kk 

1960 

GRDkTM  potential 

SCOOC 

STIRLING 

ENGINE 

SO  K« 

2300 

ACQUISITION  COST 

>  1503C.:3C 

STIRLING 

ENGINE 

SO  KU 

2300 

SYSTE*  EPP. 

< 

bc..c: 

STIRLING 

ENGINE 

so  Kk 

2300 

start  up  Tl'E 

< 

S.wCC 

CP 

start  up  TIKE 

> 

IE. ECO 

Figure  6  -  Continued 
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GENERATOA  SELECT  CASE  3  CLl>tlNATICN  TABLE 


Abx  BACK-UP  PWR 

FOP  CRIT. 

FACILITIES  OVERSEAS 

PAGE 

9 

stirlimg 

CS3I:>E 

SO  KW 

2cec 

gro.tm  pctent:*l 

<GOCC 

STIRLING 

ENGINE 

IS  RU 

I9IQ 

SYSTEM  £FF. 

< 

STIRLING 

ENGINE 

IS  KW 

i9ac 

start  up  timc 

< 

0» 

START  UP  time 

> 

STIRLING 

ENGINE 

lu  MU 

i9eo 

growth  potential 

<GOOC 

STIRLING 

ENGINE 

IS  ww 

2000 

system  eff. 

< 

STIRLING 

ENGINE 

]S  KU 

2000 

start  up  time 

< 

OP 

start  up  TI“E 

> 

STIRLING 

ENGINE 

IS  KW 

20CC 

GRf.TH  potential 

<600C 

OQ  YOU  WISH  TO  SEE  TABULAR  OUTPUT  ?  (YCS/NOI 
YES 
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6ENCRAT0R  select  CASE  3  UTILITY  VALUES  TABLE 

AUY  BACK'UP  PVR  POP  CRIT.  FACILITIES  OVERSEAS  PA&E  1 


utility  VALUES  FOR  SE'tERATOP  SELECT 

GENERATORS 

A  —  GAS  TURBINE 
e  —  oiesEL 
C  —  FUEL  cell 
D  —  STIRLING  ENGINE 


2S?  Ka 


1980 


•LL  SYSTEMS  “AYE  BEEN  ELlt*lNATEO 
2000 


ALL  SYSTEMS  have  sEEN  ElIrInATEO 


•••  SO  HV 


Figure  6  -  Continued 


GtN?R»TrR  select  C4SE  J  UTILITY  VALUES  TABLE 

tux  tiCX-UP  PmS  ro*  C«IT.  FACILITIES  OVERSEAS  P*6E  2 


IRSO 


ALL  systems 

have 

SEEN  Eliminated 

20C0 

all  systems 

HAVE 

SEEN  eliminated 

•••  IC  AW 

l»SC 

ALL  SYSTEMS 

have 

SEEN  ELIMInATCD 

2COO 

A  e 

OPTIMUM 

C  0  generators 

g.oac  o.oc 

0  X. 

000  Q.DOC  C 

PO  YOU  ViSH  TO  EXECUTE  the  PBOGRAK  AGAIN  ?  (YES/UO) 
*£! 
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SYSTEH  SELECTION  “OOCL  PROG#*'' 


LIST  OF  iVAlLtaLE  PARAMETERS 


1-  —  ACOUISITION  COST 
:  —  LIFE  CYCLE  ceSY 
3  —  SYSTEM  EFF. 
k  —  START  UP  time 

s  —  shutdown  time 

6  —  reliability 

7  —  MAlNT.  AND  0P£R. 

8  —  LIFETIME 

9  —  thermal  energy 
1C  —  VCLUM£/iI2E 

11  —  WEIGHT 

12  —  FUEL  USED 

13  —  gro.tm  potential 

Ik  —  ENVIRON.  CON5TR. 


DC  YOU  WISH  TO  ENTER  YOUR  OwN  RATINGS  ?  lYES/NO) 
NO 


SCENARIOS  AVAIlAGlE 


1 

--  AUX 

BACF-UP 

PWR 

FOR 

CRIT. 

Facilities 

CONUS 

2 

--  AUX 

BACK-UP 

PWR 

FOR 

CRIT. 

Facilities 

OVERSEAS 

3 

--  AUX 

BACK-UP 

PwR 

FOR 

CRIT. 

facilities 

remote 

ENTER  NO  or  CHOICE  OF  SCENARIO 
1 


Figure  6  -  Continued 


*UX  SACK-UP  Pki»  FOR  CRIT.  FACILITIES  CONUS 


parameters 

•  RATINGS 

•  • 

ACCUISITION  COST 

»  .G9D 

LIFE  CYCLE  COST 

•  .700 

SYSTEM  £FF. 

*  .650 

START  UP  time 

•  .500 

shutdown  time 

•  .SbC 

reliability 

•  .750 

maint.  and  oper. 

•  .560 

lifetime 

•  .A5C 

thermal  energy 

*  .zee 

volume/size 

•  .  ICO 

WEIGHT 

•  .100 

FUEL  USED 

•  .800 

growth  potential 

•  .200 

■  ««« 

ENVIRON.  CONSTR. 

•  .ICO 

enter  the  NuHSER  of  parameters  TC  be  INCLUOEC  in  Tue  DECISION  FBCCESS 


enter  EaCn  INTESER  no.  ASSOCIATED  WITh  EACH  CHOSEN 
PARAMETE”  «FB0M  lowest  TO  HIGHEST! 


parameter 

NO. 

—  1 

Parameter 

NO. 

--I 

parameter 

NO. 

—  3 

PARAMETER 

NO. 

--H 

parameter 

NO. 

-•3 

NO. 

—6 

parameter 

NO. 

--7 

parameter 

NO  • 

—e 

parameter 

NO. 

—9 

parameter 

NO. 

—  ;o 

parameter 

NO. 

—  11 

parameter 

NO. 

—  .2 

parameter 

NO. 

—  II 

parameter 

NO. 

--1* 

Figure  6 
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P*R***tTtR  —  ACaulSlTIOH  COST 

WOULD  YOU  l:k£  to  specify  i  LIPIT  Th»T  TmE  P*R»pETyR 
H*S  TC  satisfy  ?  (YES/NO) 

NO 

P*RA*>ETEP  —  LIFE  CYCLE  COST 

would  you  like  TC  specify  a  limit  Tm»T  the  parameter 
MAS  Yq  satisfy  ?  IYES/NO) 
no 

PAPA«*£TEP  —  SYST£“  EFF. 

WOULD  YOU  LIFE  TO  SPECIFY  A  LIMIT  THAT  ThE  PARAHETFB 
HAS  TO  satisfy  ?  <YES/NO) 

NO 

parameter  start  up  time 

WOULD  YOU  LIFE  TO  SPECIFY  A  LI“IT  TmAT  THE  PARAMETER 
HAS  TO  SATISFY  ?  tY£S/NO» 

NO 

parameter  —  SHUTDOWN  TIME 

WOULD  YOU  LIFE  TO  specify  A  LIMIT  THAT  THE  PARAMETER 
HAS  TC  satisfy  ?  (VES/NOI 
NO 

para-ete®  —  RELIaEILITy 

WOULD  YCU  LIFE  TO  SPECIFY  A  LIMIT  THAT  THE  PARAMETER 
HAS  TO  satisfy  1  (yES/NO) 

NO 


parameter  —  MAlNT.  ANO  OPER. 

WOULD  YOU  LIFE  TO  SPECIFY  A  LIMIT  TmAT  THE  PARAMETER 
MAS  TC  satisfy  ?  IY£S/N0( 

NO 

oaRamETE®  —  lifetime 

wculO  YOU  life  to  specify  a  limit  That  the  Parameter 
HAS  TO  satisfy  ?  (yES/NOI 
MO 

Parameter  —  tmcpmaw  energy 

would  you  life  to  specify  a  limit  That  the  parameter 
“AS  TO  satisfy  7  ITES/NOI 
n: 

PARAMETER  —  VClUME/SIIE 

would  TCU  life  to  SPCCIFT  a  limit  that  the  parameter 
has  to  satisfy  7  (YES/NOI 
NO 

parameter  —  WEIGHT 

WOULD  YOU  LIFE  TO  SPECIFY  A  LIMIT  THAT  THE  PARAMETER 
HAS  TO  satisfy  ?  «YES/N0) 

NO 
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P4I»«meteR  —  FUEL  USED 

uoutc  YOU  LlttE  TO  SPECIF’r  1  LI«iT  TM*T  THE  >*»*«ETE» 
HAS  TO  satisfy  1  (YES/HOI 
NO 

FiDAMETED  —  GBOHTH  FOTENTIAL 

WOULD  YOU  LIKE  TO  SPECIFY  A  LlHU  THAT  THE  PAPAhETER 
HAS  TO  satisfy  ?  (VES/NO) 

NO 


PAPAPETEP  —  ENViaON.  CONSTR. 

WOULD  YOU  LIKE  TO  SPECIFY  A  LiHIT  THAT  THE  PARAPETER 
HAS  TO  satisfy  ?  (VES/NO) 

NO 


DO  YOU  WISH  TO  SEE  TABULAR  OUTPUT  ?  (YES/NO) 
YES 


Figure  6 
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(iCNCBiTOR  iELECT  CASE  3  UTILITY  VALUES  TABLE 

AUX  BACH-UP  P.P  FOP  CRIT.  facilities  COKUS  PAGE  1 


utility  values  for  gemeratoo  select 

6ENEOAT0RS 

A  --  GAS  TURCIKE 
e  --  DIESEL 
C  --  FUEL  CELL 
0  --  STIRLING  ENGINE 


?SS  HU  ••• 


1*80 


OPTlHun 

A 

e 

0 

generators 

.832 

.119 

.07C 

.C31 

A 

generator  select 

CASE  3  utility  values  Table 

AUX  BACX-UP  PvP  F(30  CRIT. 

facilities  CCNOS 

PAGE  Z 

ICOD 

A  3  C  0 

optimum 

generators 

.663  .526  .Sh8  .813 

0 

•••  !C  KV 

1980 

optimum 

A  3 

C  0 

GENERATORS 

.832  .lit 

.070  .331 

A 
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scNrotToR  SEurcT  case  a  utility  values  table 

AUX  BACA-U®  Pvs  FOP  CRIt.  FACILITIES  CONUS  P»S£  I 

zcoo 


A  9  C 

OPTINUH 

0  generators 

.tvl  .VAT  .4AT 

•  Taa  C 

i:  Ku 

•  •• 

i9ec 

A  E  C 

optimum 

c  generators 

.TSA  .064  .Sl« 

•  CIl  A 

generator  self 

AUX  BACK-UP  Par  FuR 

CT  CASE  J  utility  values  table 

CRIT.  Facilities  ccnus 

PAGE  A 

zroa 

ABC 
.S«2  .«IS  .Sb6 

00  YOU  hISH  TO  CXCCUTE 
•*0 


CPTImUH 

0  GENERATORS 

Til  C 

THE  PROGRAh  again  ? 


•YES/MO ) 


Figure  6 
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b.  Output 

(1)  Parameter  package  program  (PPD 

Using  the  command  LIST,  the  program  will  print 
out  a  listing  of  parameter  data  for  each  system  and 
subsystem.  See  Figure  7  for  an  example  of  output  of  the 
generator  selection  problem. 

(2)  User's  preference  package  program  (UPPP) 

Using  the  command  LIST,  the  program  will  print 
out  a  listing  of  parameter  rating  values  for  each  scenario 
plus  the  average  parameter  rating  for  each  parameter.  See 
Figure  8  for  an  example  of  output  of  the  generator  selection 
problem. 

(3)  System  selection  model  program  (SSMP) 

This  program  will  print  out: 

(a)  Elimination  table:  if  the  parameter 
limits  eliminate  data  for  some  system  or  subsystem,  an  elimi¬ 
nation  table  is  printed.  This  table  prints  out  the 
eliminated  system  and/or  subsystem  and  the  reason  why  it  was 
eliminated. 

(b)  Utility  value  table:  the  program  prints 
out  a  table  showing  the  relative  values  of  each  system.  The 
highest  value  indicates  which  system  is  the  best  or  optimal 
system.  Care  has  to  be  taken  when  specifying  limits  on  the 
parameter,  or  all  of  the  systems  will  be  eliminated.  If  this 
condition  occurs,  the  program  will  print  out  a  message  so 
indicating. 

(c)  Graphics:  the  graphs  show  the  same 
information  as  the  utility  value  table.  The  graphics  plot 
the  system  value  for  each  system.  See  Figure  9  for  examples 
of  output  using  the  generator  selection  problem. 


iliiWiiuaiiia 
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parihctcr  package  program 


COMMANDS  AVAILABLE: 

CRTS  -  CREATES  FILE  Of  NAMES 

mnIn  >  ALLOWS  manual  entering  Of  PARAMETER  VALUES 
LIST  -  LISTS  OUT  NAMES  ANO  PARAMETER  VALUES 
END  -  ENOS  PROGRAM 


COMMAND— >L1ST 


*••4 

ACQUISITION  COST 

2S0  HW 

IRBO 

GAS 

TURBINE 

VOBDO.OOO 

DIESEL 

0.000 

FUEL 

CELL 

O.OCO 

STIRLING  ENGINE 
C.OOO 

2000 

GAS 

TURBINE 

VOSOC.DOO 

DIESEL 

162500.000 

FUEL 

cell 

l25C00.0Ca 

•  ••4 

STIRLING  ENGINE 
lOQCCO.OOC 

Figure  7  -  Parameter  Package  Prograun  Output 
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•  ••n 

50  K6 

i9ao 

fmmm* 

GAS 

TU»S1NE 

20600.000 

DIESEL 

0.000 

FUEL 

CELL 

0.000 

STIRLING  ENGINE 
O.OOC 

2000 

6AS 

TUOBINC 

20600.000 

DIESEL 

35000.000 

FUEL 

CELL 

2EOOO.OCC 

•  ••4 

STIRLING  ENGINE 
22530.000 

10  Kh 

1980 

GAS 

TURBINE 

6800. 000 

OIESEL 

0.000 

FUEL 

CELL 

20000. OCO 

STIRLING 

ENGINE 

3.000 

2000 

GAS 

TURBINE 

6800.000 

OIESEL 

8000.000 

FUEL 

CELL 

5000. SCO 

STIRLING 

ENGINE 

3500.000 

Figure  7  -  Continued 
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life  cycle  cost 


2S0  KU 


19«0 


SAS  TURBINE 

120200.000 


OIESEL 

SNTQO.OOO 


FUEL  CELL 

o.occ 


STIFLING  ENGINE 

0.000 


2000 


GAS  TURBINE  DIESEL  FUEL  CELL 

IIRSSO.CQO  69700.000  3S262.SCC 

STIRLING  ENGINE 
S6C00.00C 


Figure  7  -  Continued 


SO  KU 

$000 

19B0 

•  mmn 

6«S  TURBINE 

32300.000 

DIESEL 

16100.000 

FUEL  CELL 

O.OCC 

$000 

STIRLING  ENGINE 
0.000 

2000 

*•*4 

SAS  TURBINE 

2682S.000 

DIESEL 

161C0.00C 

FUEL  CELL 

TS37.5CC 

$mmm 

•  •*4 

STIRLING  ENGINE 
12900.000 

$000 

000$ 

10  KM 

$000 

19GC 

000$ 

GAS 

TURBINE 

7900.300 

DIESEL 

SSOO.OOO 

FUEL 

cell 

2*80. DOC 

$00m 

STIRLING  engine 
0.000 

2C00 

•  •«4 

GAS 

TURBINE 

6H7S.000 

DIESEL 

bSOO.OOO 

FUEL 

CELL 

1598. 75C 

•  •«4 

STIRLING  ENGINE 
3B10.000 

$000 

Figure  7  -  Continued 
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SYSTEM  Err. 

•mmn 

250  KU 

I«I0 

««*4 

6AS 

TURBINE 

82.500 

OlESEL 

c.ooo 

ruEL 

CELL 

C.OOO 

STIRLING 

ENGINE 

0.000 

2000 

GAS 

TURBINE 

72.250 

OlESEL 

83.000 

ruEL 

CELL 

60.000 

•  ••1 

STIRLING 

ENGINE 

60.00C 

Figure  7 


Continued 


6AS 

TUABINC 

6B.S00 

DIESEL 

O.OOD 

FUEL 

CELL 

O.DCO 

STIRLING 

ENGINE 

D.OOD 

2C00 

*««« 

GAS 

TUBBINC 

75.750 

DIESEL 

65.000 

FUEL 

CELL 

60.0CC 

STIRLING 

ENGINE 

55. DOC 

10  KW 

1980 

•  «*< 

GAS 

TURBINE 

ST.SDO 

DIESEL 

0.000 

FUEL 

CELL 

65.000 

STIRLING 

ENGINE 

O.OOC 

2000 

GAS 

TURBINE 

77.750 

DIESEL 

67.000 

FUEL 

CELL 

60.000 

tmmm 

STIRLING 

ENGINE 

55.000 

Figure  7  -  Continued 


START  UP  TIHC 


2Sa  KU 

19«0 

6«S 

TURftlNC 

.5«a 

OXCSCL 

0.000 

ruEL 

CELL 

o.oco 

•••• 

STIRLING 

ENGINE 

O.COO 

2000 

6AS 

TuveiNC 

.sao 

oiescL 

.170 

FUEL 

CELL 

9C.0C0 

•  41*4 

STIRLING 

ENGINE 

1.000 

»4l»4i 

Figure  7  -  Continued 


50  Kw 


•  • 


1910 

6«S 

ruffBXNe 

DIESEL 

FUEL 

CELL 

1.000 

o.ooc 

O.OCO 

STIRLING 

ENGINE 

0.000 

2000 

GAS 

TuneiNC 

DIESEL 

FUEL 

CELL 

1. 000 

.ITQ 

30.000 

STIRLING 

ENGINE 

1.000 

10  kh 

1960 

GAS 

turbine 

DIESEL 

FUEL 

CELL 

1.000 

0.000 

15.0CC 

STIRLING 

ENGINE 

0.000 

2C0C 

GAS 

TURBINE 

DIESEL 

FUEL 

CELL 

l.OOC 

.ITC 

IS.OCC 

STIRLING 

ENGINE 

l.OOC 

Figure  7  -  Continued 
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SHUTOOUM  Tine 


250  KU 

1960 

6«S 

TUHtlNE 

.sac 

OlESCL 

0.000 

PUCL 

CELL 

o.ooc  • 

STIRLING 

ENGINE 

0.000 

2000 

GAS 

TUPilNC 

.sac 

OlESCL 

.17C 

FUEL 

CELL 

9S.0C0  • 

STIRLING 

ENGINE 

1.000 

Figure  7  -  Continued 


•  ••« 

50  KU 

i9ta 

6tS 

tupbznc 

1.000 

OIESCL 

0.000 

ruEL 

CELL 

0.000 

STIRuInG 

ENGINE 

0.000 

2000 

•  ••« 

GAS 

TURBINE 

1.000 

DIESEL 

.170 

FUEL 

CELL 

IS. 000 

•  ••« 

STIRLING 

ENGINE 

1.000 

10  Ka 

1960 

GAS 

TURBINE 

1.000 

DIESEL 

0.000 

FUEL 

CELL 

7. arc 

STIRLING 

ENGINE 

0.000 

2000 

•  ••4 

GAS 

TURBINE 

1.000 

DIESEL 

.170 

FUEL 

CELL 

7. SCO 

STIRLING 

ENGINE 

1.000 

Figure  7  -  Continued 
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reliability 


2S0  KU 

1980 

GAS 

turbine 

12.000 

DIESEL 

0.000 

rUEL 

CELL 

0.000 

STIRLING 

ENGINE 

O.OOC 

2000 

GAS 

TURBINE 

12.000 

OIESCL 

10.900 

FUEL 

CELL 

1.000 

»••• 

•  ••4 

STIRLING 

ENGINE 

8.000 

*999 

Figure  7  -  Continued 


SO  KM 

1980 

GAS 

TUPBINE 

OICSCL 

ruCL 

CELL 

12.000 

0.000 

O.OQC 

STIRLING 

CNGINC 

0.000 

2000 

GAS 

TURBIhC 

OICSCL 

ruCL 

CELL 

12.000 

lO.OOC 

l.OCO 

STIRLING 

ENGINE 

8.000 

•  ••« 

-  '•««« 

I*** 

•  ««l 

•  ••• 

10  KH 

1980 

GAS 

Turbine 

OICSCL 

FUEL 

CELL 

12.000 

0.000 

0.000 

STIRLING 

ENGINE 

0.000 

2000 

GAS 

TURBINE 

OICSCL 

FUEL 

CELL 

12.000 

10.000 

l.OCO 

STIRLING 

ENGINE 

8.000 

I*** 

Figure  7  -  Continued 
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MAINT.  AND  OPCR 


2S0  KU 

IRBO 

*•«« 

•  ••4 

GAS 

TURBINE 

b20S.000 

DIESEL 

D.OOO 

FUEL 

CELL 

O.QCO 

STIRLING  ENGINE 
0.000 

2000 

•  ■*4 

GAS 

Turbine 

620S.joa 

DIESEL 

ASOO.OOO 

FUEL 

CELL 

62S0.0C0 

•  ••4 

STIRLING  ENGINE 
309<t.00C 

Figure  7  -  Continued 


GAS 

TU9B1NC 

hTIS.OOO 

OIESCL 

0.000 

ruEL 

CELL 

c.oco 

STIRLING  ENGINE 
0.000 

2000 

GAS 

TURBINE 

4715. 000 

DIESEL 

S200.00C 

ruEL 

CELL 

1000.000 

STIRLING  ENGINE 
I12S.00C 

10  Km 

1980 

GAS 

TURBINE 

3700.000 

OIESCL 

0.000 

FUEL 

CELL 

1000. OCC 

STIRLING 

ENGINE 

0.000 

2000 

GAS 

Turbine 

3700.000 

OIESCL 

3*00.000 

FUEL 

CELL 

2S0.00C 

STIRLING 

ENGINE 

UO.OOO 

»«•« 

Figure  7  -  Continued 


LirCTlMC 
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3.  PROCEDURES  FOR  USE 


To  execute  the  programs  interactively,  a  PROCEDURE  file 
has  been  set  up  so  that  the  user  has  only  one  command  to 
issue  in  order  to  run  the  programs. 

A  PROCEDURE  file  is  a  file  containing  system  commands. 
The  first  line  is  the  header  statement,  and  it  defines  the 
file  as  a  PROCEDURE  file  and  identifies  any  keywords.  When  a 
PROCEDURE  file  is  called  up,  the  values  for  the  keywords  are 
substituted  for  any  keywords  specified  in  the  file.  The 
procedure  is  called  by  a  BEGIN  command.  The  BEGIN  command 
states  the  procedure  name  as  on  the  header  statement,  the 
name  of  the  PROCEDURE  file,  and,  if  any,  values  for  the 
keywords. 

In  the  PROCEDURE  files,  file  names  are  given  as  keywords. 
Therefore,  different  file  names  can  be  specified  when  running 
different  problems.  Different  PROCEDURE  files  are  available 
when  the  programs  are  used  for  different  functions  because 
the  handling  of  the  files  differs  from  function  to  function. 
When  the  programs  are  used  to  create  the  data  files,  the 
PROCEDURE  file  issues  the  necessary  commands  to  set  up  the 
new  files  as  permanent  files.  The  user  then  issues  the 
CATALOG  command  to  make  the  files  permanent.  If  the  data 
files  are  already  present,  another  PROCEDURE  file  is  used. 
Listings  of  these  PROCEDURE  files  are  available  in  Appendix 
J.  Further  information  of  PROCEDURE  files  with  the  CDC  CYBER 
175  is  available  in  NOS/BE  Version  1:  Reference  Manual. 

On  Wright-Patterson's  CDC  computer  the  following  command 
should  be  issued  to  gain  access  to  INTERCOM  (interactive 
mode):  LOGIN,  problem  number,  password.  Then  the  following 
commands  should  be  issued  for  the  various  programs: 


a.  Parameter  package  program  (PPP) 

(1)  To  create  the  parameter  package  (PP)  and  the 
HEADER  file: 

ATTACH , PPROCl 

BEGIN, PPPP, PPROCl , f ilenamel , f ilename2 

where:  filenamel  is  the  desired  permanent 

filename  for  the  HEADER  file  to  be  created,  and  filename2  is 
the  similar  name  for  the  PP  file. 

NOTE:  No  filenames  discussed  in  this  section 

may  be  exactly  the  names  "HEADER",  "PP",  or  "UPP". 

(2)  PPP  program  commands: 

CRTE — creates  a  new  data  base,  or  in  other 
words,  a  new  HEADER  file 

MNIN — allows  entering  of  parameter  values,  if 
user  has  no  data  file  already  made  up 

LIST — lists  all  parameter  data  contained  in  PP 

END  — ends  the  program 

b.  User's  preference  package  program  (UPPP) 

(1)  To  create  the  user's  preference  package  (UPP) 

file: 

ATTACH, UPROCl 

,  BEGIN, UPPPP, UPROCl, f ilenamel, cyl,filename2, 

filenamel 

where:  filenamel  and  cyl  are  the  filename  and 
cycle  number  of  the  HEADER  file,  which  must  already  exist  as 
a  permanent  file  and  must  not  be  attached,  and  filename2  and 
filenamel  are  the  desired  filenames  of  the  UPP  file  and  the 
new,  annotated  HEADER  file,  both  of  which  are  to  be  created. 

(2)  UPPP  program  commands: 

CRTE — creates  new  user's  preference  package 

(UPP) 

ADD  — adds  scenarios  to  an  already-existing  UPP 


LIST — lists  the  scenarios  and  their  parameter 

ratings 

END  — ends  the  program 

(3)  The  new  HEADER  file  and  the  UPP  file  created 
must  be  CATALOGed  as  above. 

(4)  To  add  scenarios  to  a  previously  created  UPP: 
ATTACH, UPROC2 

BEGIN , UPPPP , UPROC2 , f ilenamel , cyl , f ilename2 , cy 2 , 
filenames , f ilename4 

where:  f ilenamel, cyl  and  f ilename2,cy2 

represent  the  filenames  and  cycle  numbers  of  the  existing 
HEADER  and  UPP  files,  and  filenames  and  filename4  are  the  new 
filenames  for  the  appended  versions  of  these  files, 
c.  System  selection  model  program  (SSMP) 

(1)  To  run  program: 

ATTACH , IPROC 

BEGIN, SSMPP , IPROC , f ilenamel , cyl , f ilename2 , cy2 , 

filenames ,cy3 

where:  f ilenamel, cyl  pertain  to  the  PP  file, 
f ilenarae2,cy2  to  the  UPP  file, 
and  filenames, cyS  to  the  HEADER  file 
To  run  larger  problems,  all  these  programs  may  be  exe¬ 
cuted  in  batch  mode.  This  is  particularly  desirable  when 
entering  data  interactively  becomes  a  long,  cumbersome  task, 
and  for  problems  larger  than  the  size  limits  specified  above, 
SSMP  must  be  executed  in  batch  mode.  Instructions  and 
further  explanation  are  contained  in  Appendix  B. 
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SECTION  V 


PROGRAMMING  SPECIFICATIONS 
1 .  PROGRAM  OVERVIEW 

The  main  program  is  the  system  selection  model  program 
(SSMP)  which  is  used  to  select  the  best  system  by  integrating 
the  system  parameters  and  the  user's  parameter  ratings.  The 
SSMP  has  three  data  bases:  (1)  parameter  package  (PP),  which 
contains  the  system  parameter  data;  (2)  user's  preference 
package  (OPP),  which  contains  the  user's  ratings  of  the  sys¬ 
tem  parameters;  and  (3),  HEADER  which  contains  information  on 
the  structure  of  the  problem  and  titles. 

Two  supporting  programs  develop  these  data  bases.  The 
parameter  package  program  (PPP)  develops  the  PP  and  HEADER 
files.  The  user's  preference  package  program  (UPPP)  uses  the 
information  from  HEADER  as  input  and  outputs  UPP  as  a  file. 
See  Figure  8. 

To  set  up  a  problem  the  PPP  and  UPP  are  executed  in  order 
to  provide  the  data  bases  for  the  SSMP.  Once  these  data 
bases  are  set  upr  the  system  selection  model  program  can  be 
executed  as  many  times  as  needed.  It  is  not  necessary  to 
execute  the  two  supporting  programs  each  time  the  SSMP  is 
run. 

Each  of  these  programs  can  be  executed  interactively  on 
Wr ight-Patterson's  CDC  CYBER  175.  The  SSMP  consists  of  two 
programs,  the  first  of  which  contains  everything  but  the 
graphics.  The  second  set  of  programs,  the  graphics  programs 
GRAPHX  and  GRAPHT,  contain  the  FORTRAN  codings  to  utilize  the 
Tektronix  PLOT-10  software  subroutines  which  actually  perform 
the  graphics  work. 
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The  user  of  the  SSMP  cannot  tell  that  there  are  two 
separate  programs  because  the  programs  are  executed  together 
under  a  PROCEDURE  file.  This  PROCEDURE  file  not  only  exe¬ 
cutes  the  two  programs  but  also  attaches  and  returns  data 
files.  The  reason  for  this  separation  is  two-fold:  first, 
each  SSMP  program  requires  so  much  memory  allocation  that  it 
is  impossible  to  have  the  programs  run  interactively  together 
as  one  program;  and  second,  the  graphics  programs  are 
presented  as  an  option. 

To  further  reduce  the  amount  of  storage  required,  the 
three  programs  for  SSMP  are  divided  into  overlays.  The 
program  modules  are  structured  into  overlay  trees  as  shown  in 
Figures  10  and  11.  The  main  overlay  which  is  designated  as 
level  (0,0)  remains  in  memory  during  job  execution.  Beneath 
the  main  overlay  are  the  primary  overlays,  which  are  called 
from  the  main  overlay.  The  primary  levels  are,  for  example, 
(1,0),  (2,0),  (3,0)...  Under  a  primary  overlay,  a  hierarchy 
of  secondary  overlays  can  exist.  The  secondary  overlays  are 
loaded  in  response  to  a  CALL  statement  issued  in  the  primary 
overlay.  Examples  of  secondary  overlays  associated  with  the 
primary  overlay  (1,0)  are:  (1,1),  (1,2),  (1,3),  and  (1,4). 

The  array  dimensions  are  kept  consistent  throughout  SSMP 
and  the  supporting  programs.  The  dimensions  for  each  array 
are  set  at  the  maximum  value  that  will  allow  the  program  to 
run  interactively.  The  dimensions  of  these  arrays  therefore 
limit  the  sizes  of  the  problems  that  can  be  run 
interactively.  To  run  larger  problems  will  require  the  user 
to  increase  array  dimensions  and  run  the  program  in  batch 
mode.  The  program  that  can  handle  larger  problems  is  called 
SSMPB  and  is  described  in  Appendix  B.  Of  course,  the  dimen¬ 
sions  may  change  from  computer  system  to  computer  system. 
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A  user  on  a  different  computer  system  may  be  able  to  set 
up  these  programs  as  a  library.  To  facilitate  this  potential 
setup,  the  COMMON  statements  and  variable  names  are  kept  the 
same  between  programs. 

Section  II  suggests  methods  to  change  the  overlay  program 
modules  to  subroutines. 

Besides  the  three  data  files  discussed  above,  other  data 
files  exist  which  are  used  to  reduce  the  number  of  arrays. 
These  files  are  created  by  SSMP  during  its  execution.  These 
files  are  VPARM  and  SYSNUM.  The  interaction  of  SSMP  and  its 
files  is  shown  in  Figure  12.  The  structure  and  description 
of  the  data  in  these  files  are  given  in  Section  V.2. 

2.  DATA  STRUCTURE  TABLES 

This  section  describes  the  data  files  used  in  the  system 
selection  model  program.  Examples  of  the  first  three  data 
files  for  the  generator  selection  problem  are  given  in 
Figures  17,  18,  and  19. 

a.  HEADER 

HEADER  is  an  output  file  from  the  supporting  program 
PPP  and  an  input  file  to  UPPP  and  SSMP. 

Figure  13  shows  the  structure  of  this  file. 

b.  User's  preference  package  (UPP) 

UPP  is  an  output  file  of  the  user's  preference  pack¬ 
age  program  (UPPP)  and  an  input  file  to  SSMP. 

The  file  is  structured  in  Figure  14. 

c.  Parameter  package  (PP) 

PP  is  an  output  file  from  the  parameter  package 
program  and  an  input  file  to  SSMP. 

The  file  is  structured  in  Figu..e  15. 

d .  VPARM 

VPARM  is  a  file  created  by  SSMP  and  used  to  store 
data  during  the  execution  of  SSMP. 


SYSDSN 

NSYS 

NSUBl 

NSUB2 

NPARM 

SYSSET(4) 

SB1SET(4) 

SB2SET(4) 

SYSNAM(NSYS,4) 

SDB1NM{NS0B1,4) 

SUB2NM(NSUB2,4) 

PARNAM(NPARM,4) ,  NUM(NPARM),  RATED (NPARM) ,  YN(NPARM) 
INVERT (NPARM) 

NSCEN 

SCNDSC(NSCEN,15) 

Description! 

SYSDSN- INTEGER  VALUE:  indicates  the  description  of  the 

problem 

1 —  Indicates  systems  to  be  included. 

2— -Indicates  systems  and  level  1  subsystems  to  be 

included. 

3 —  Indicates  systems,  level  1  and  level  2  subsystems  to 
be  included. 

FORMAT  (II) 

NSYS-INTEGER  VALUE:  number  of  systems. 

FORMAT  (12) 

NSUBl-INTEGER  VALUE:  number  of  level  1  subsystems. 

FORMAT  (12) 

NSUB2-INTEGER  VALUE:  number  of  level  2  subsystems  per 

level  1  subsystem. 

FORMAT  (12) 

NPARM-INTEGER  VALUE:  number  of  parameters. 

FORMAT  (12) 

SYSSET-ALPHANUMERIC:  general  setname  for  the  systems. 

FORMAT  (4A4) 


Figure  13  -  Data  Structure  of  HEADER  File 
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advanced  technology  multiple  criteria  decision  model. (U) 

NOV  81  P  J  SWEENEY.  K  6  BERNER.  U  R  FRAkER  F33615-77-C-2059 

AFWAL-TR-81-2112  NL 


unclassified 


SBISET-ALPHANUHERIC:  general  setname  for  the  level  1 

subsystems. 

FORMAT  (4A4) 

SB2SET-ALPHANUMERIC:  general  setname  for  the  level  2 

subsystems. 

FORMAT  (4A4) 


Figure  13  -  Concluded 


rating  (1) 

RATING  (2) 


RATING  (NPARM) 

A  similar  block  appears  in  the  file  for  each  scenario  in 
the  problem. 

Dgscriptions 

RATING-REAL  VALUE:  A  rating  for  each  parameter,  entered 

by  the  user  in  the  execution  of  the 
UPPP  program,  which  indicates  the 
relative  importance  of  each  of  the 
parameters. 


FORMAT  (F5.3) 


Figure  14.  Data  Structure  of  UPP  File 
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PARAM(1,1),  PARAM(1,2) . PARAM  (IrNSYS) 

PARAM(2,1),  PARAM(2,2) . PARAM ( 2 / NSYS ) 

*  0 

•  • 

•  • 

•  • 

PARAM( INDEX,  1)  ,  PARAH  (INDEX, 2) . PARAN  ( INDEX , NSYS ) 


This  block  appears  in  the  data  file  once  for  each 
parameter  existing  in  the  problem. 

Description; 

PARAM-REAL  VALUE:  contains  the  actual  parameter  data. 
UNFORMATTED 

NSYS-INTEGER  VALUE:  number  of  systems. 

FORMAT  (12) 

INDEX-INTEGER  VALUE;  Case  1--INDEX  -  1 

Case  2 — INDEX  «  NSUBl 

Case  3— INDEX  =  NSDB1*NSDB2 


Figure  15.  Data  Structure  of  PP  File 
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SYSNRNd,!),  SySNRM(l,2} 
SYSI1RM(2»1)  »  SYSNRM(2,2) 


SYSNRH(1,NSYS) 

SYSNRH(2,NSYS) 


SYSNRM  (INDEXri)  /  SYSNRM  (INDEXr2) . SYSNRM  (INDEX, NSYS) 

Description: 

SYSNRM-REAL  VALUE:  normalized  system  utility  values 

indicating  ranking  of  systems. 

NSYS-INTEGER  VALUE:  number  of  systems. 

FORMAT  (12) 

INDEX-INTEGER  VALUE:  Case  1~INDEX  >  1 

Case  2— INDEX  «  NSUBl 
Case  3— INDEX  «  NSDB1*NS0B2 


Figure  16.  Data  Structure  of  SYSNUN  File 
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J 

It 

3 

2 

It 

GENEPATOPS 
K ILOUATTS 
YEAR 

GAS  TuPSINE 
CIESEL 
PUEL  CELL 
STIRLING  ENGINE 
2SC  K. 

SO  KU 
IC  RW 
IPGC 
2300 
1980 
2000 
1980 
2000 

ACQUISITION  COSTIOOO 
LIFE  CYCLE  COST  1000 


SYSTEM  cFF.  1301 

start  up  time  1000 
shutdown  time  1030 
PELIAaiLlTY  I.Cl 
“AInT.  ANO  OPEA.IOOO 
LIFETIME  1031 
THER-al  energy  1000 
VCLUME/SIZE  1000 
WEIGHT  loco 
FUEL  USED  1000 


GROWTH  POTENTlAuOlOO 
ENVIRON.  CONSTR.OlOO 


d  ux 

sacr-up 

PWR 

FOP 

CRIT.  FaC 

ILITIES 

CONUS 

d  ux 

PACR-UP 

PWR 

FOP 

CRIT.  FAC 

ILI’’IES 

OVERSEAS 

dux 

BACK-UP 

PwR 

FOP 

CRIT.  FAC 

ILITIES 

REMOTE 

Figure  17.  HEADER  File  for  the  Generator  Problem 
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.■*0 

.700 

.kSO 

.500 

.550 

.750 

.550 

.550 

.200 

.300 

.300 

.500 

*200 

.300 

.too 

.570 

.750 

.500 

.500 

.500 

.500 

.500 

.200 

*500 

.500 

.700 

.200 

.100 

.500 

.900 

.500 

.700 

.500 

.700 

.700 

.500 

.200 

.700 

.500 

.500 

.300 

.100 


Figure  18.  UPP  File  for  Generator  Problem 
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90800.  C.  0.  0. 

9080C.  162300.  123000.  100000. 
23600.  0.  0.  0. 

23600.  25CCO.  2SCQ0.  22SQC. 
6300.  O.  230QC.  0. 

6600.  eOOC.  3000.  3S0Q. 

120200.  69700.  0.  0. 

11«1SC.  69700.  38262.3  56000. 
723CC.  16100.  0.  0. 

26823.  16100.  7837.3  1290C. 
7900.  3500.  2830.  0. 

6973.  3300.  1598.75  3810. 

82.3  0.  3.  0. 

72.23  63.  63*  60* 

56.5  0.  0*  0* 

73.73  63.  60.  35. 

87.3  Q.  65.  0. 

77.75  67.  60.  SS. 

.68  0.  0.  3. 

.38  .17  93.  1. 

1  .  Q.  0.  3. 

1 .  .17  30.  1 . 

1.  0.  IS.  0. 

1.  .17  IS.  1. 

.38  3.  G.  3. 

.38  .17  93.  1. 

1.  C.  3*  3. 

1.  .17  IS.  1. 

I.  0*  7.8  0. 

J.  .17  7.8  1. 

12.  C.  C.  0. 

12.  1C.  1.  a. 

12.  3.  Q.  0. 

12*  10.  1.  8. 

12.  0.  0.  0. 

12.  10.  1.  6. 


6203. 

0.  0 .  3. 

6  203. 

8300.  6250.  3099 

•  713. 

3 .  0  *  0  * 

9715. 

5230.  1000.  1123 

1700. 

3.  1300.  0. 

!70Q. 

3900.  230.  160. 

11.  3. 

0.  3. 

11.  22 

.  3.  23. 

11.  0. 

C.  3. 

Figure  19  -  PP  File  for  Generator  Problem 


u.  11.  a.  2S. 

11.  c.  0. 

11.  9.  c.  :s. 

7.59  a.  c.  a. 

3.69  3.1  9.2  3.7 
.39  0.  0.  0. 

.7  a.S  8.9  9.9 
.  36  0  .  C  .  0  . 

.99  6.7  6.1  7.3 

ISC.  c.  c.  a. 

ISC.  13G.  170.  iSu. 

97.5  u.  0.  0. 

97.3  70.  30.  30. 

12.3  C.  0.  0. 

12.3  21.  6.  12. 

9500.  C.  0.  0. 

9500.  5533.  12330.  9BC0. 

1000.  0.  0.  0. 

ICOC.  1393.  *000.  600. 

200.  0.  0.  0. 

230.  983.  90S.  22u. 

210.  C*  0.  0. 

13*.  70000.  90000.  6730C. 
55.  0.  0.  G. 

33.25  19903.  3190.  12600. 

12.  0.  9260.  0. 

6.92  3100.  3760.  2590. 

9.  9.  2.  9. 

9.  9.  2.  9. 

9.  9.  2.  9, 

9.  9.  2.  9. 

9.  9.  2.  9. 

9.  9.  2.  9. 

5.  3.  1.  2. 

5.  3.  1 .  2. 

5 .  3.  1  .  2  . 

5.  3.  1.  2. 

5.  3.  1.  2. 

5.  3.  1.  2. 


Figure  19  -  Concluded 
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SECTION  VI 


TEST/VERIFICATION  SPECIFICATIONS 

1 .  PRODUCTION  TESTING 

During  the  coding  of  these  programs,  input  data  were  used 
to  run  through  each  branch  of  the  programs.  Input  used  to 
violate  program  conditions  included: 

a.  Empty  input  files. 

b.  Extraneous  characters  in  data. 

c.  User  input  and/or  file  input  with  values  which  were 
too  large  or  too  small. 

d.  An  improperly  constructed  problem  tree. 

e.  Problem  size  too  large  for  interactive  executive. 

2.  ACCEPTANCE  TEST  SPECIFICATIONS 

The  programs  will  be  considered  suitable  when: 

a.  The  programs  respond  correctly  to  the  program 
violations  as  described  in  Section  VI. 1. 

b.  Error-free  performance  is  observed  in  several  test 
cases. 

c.  The  correct  answers  are  found  for  test  data.  These 
test  data  are  shown  in  Section  VI. 3. 

3 .  TEST  CASES 

To  show  that  SSMP  performs  its  calculations  correctly, 
several  test  runs  were  made,  and  the  results  were  confirmed 
to  be  accurate.  Figure  20  is  a  test  case  that  depicts  an 
actual  run  and  shows  not  only  the  final  results  but  also  the 
interactive  commands  with  typical  responses. 
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RKBOKBUO  MOB  WUm-mt  nJLMD 


PASAMeTER  PAC«AG£  PeOCRA 


CJ^J^ANCS  AVAlLAoLi: 

C«T£  -  CBEATEi  FILE  OF  SAKES 

“MN  -  ALlO.S  “ANUAL  E'iTEKlf.G  OF  PARAt’ETE*  VALUES 
LIST  -  lists  out  NA«ES  ANC  PARAl^rTER  VAllES 
END  -  EN’jS  PSCGPAH 


CC>**fANC  — >CSTE 


rs'Ti® 

data  base 

NAMt  (“AX  le 

CkAOi  1 

prpQB 1 

example 

r\T£C 

no.  of  STSTt-i  (Z  DIGIT 

NO 

.  } 

c  A,  7  r  e 

NC.  OF  l£ 

vEl  1  SUeSYSTEMS 

(* 

CIG 

IT  NC. 

t 

NO.  OF  Li 

vEl  I  SUESYSTEMS 

u 

DIG 

IT  NC. 

1 

fr,T£B 

^  c 

NO.  OF  parameters  (Z  01 

GIT 

NC 

.  I 

•■STCO 

SYSTEM  Si 

T‘.A“£  (“AX.  16 

CHARS 

.  1 

colleges 

E’.  TE® 

NA“£  FOR 

COwLtGtS 

VC  . 

e 

(“AX. 

it 

Chaps ) 

vile 

EN’E® 

SA“£  FOR 

colleges 

N  w  « 

- 

(MAX  . 

16 

CHAPS) 

u.:. 

EN'Tt® 

NAME  FOR 

colleges 

N  V  • 

T 

(“AX. 

16 

CHAPS) 

NAPVA RC 

£NT£e 

NAME  FOR 

COLLEGES 

NCe 

<4 

(MAX. 

16 

CHARS  ) 

U  .  S  .  C  . 
Er.TL® 

NAME  FOR 

colleges 

Nw. 

5 

(“AX  . 

16 

CHIPS ) 

¥  E  0  A  E I.  V 


E'.TiP  vaxE  for  PARAHETES  no.  1 
COST 

'•NTI9  M-i  for  parameter  NO.  Z 
■ISTir.Ci 

EV^tP  NA-E  for  parameter  NO.  I 
PCL'SINF 

EN^EP  NA-E  FOR  PAkAmETER  NC  .  « 
TEACHtPS 

ENTEP  NA-E  for  parameter  NC .  E 
CO-EC  LIVING’ 


Figure  20  -  College  Run 

CopT  available  to 

peStt  MU  TOtMuoBoa 


A  i«u»<ERICtL  PA'tAxETER  ?  (YiS/NPl 


:s  C?ST 

Y  £S 

fC-  ‘•li'ERICAL  PA^A-ETlPS.  Th£  LOdtST  Y»LUi  IS 
CC‘'iIOE(fED  THE  "SiST"  VALUE. 

:c  YCLi  w:Sn  TC  I.,VERT  Th:S  rcp  CCST  ’  (YES/SC) 

NO 

IE  cista'.'ce  a  Numerical  “apa^ete*  ?  tYEs/Ni") 

*  r  j 

p;c  *'u>'ERICAL  PA0a»ET£RS.  The  LOLiST  vAlUE  IS 
CCNSIOEKED  TM£  “»iST"  VALUE. 

:c  YOU  WISH  TO  Invest  this  pc?  distance  ■»  iyes/n'') 

nC 

is  housing  a  NuHEPICAL  PACA“ET£R  ?  CYES/NC) 

NO 

IS  hCuSINS  A  rated  oasa-EyEP  ~  (YES/NCl 

YES 

ISTEAChERS  A  NU“E9ICAL  PAPAmETEP  ?  tYES/NC) 

NO 

IS  TPACHEPS  A  OATED  PAK»M£TEP  ?  IYES/NC) 

Y  ££ 

IS  CO-EO  living?  a  numerical  PA®A“tT£P  ?  (YES/ND 

NC 

IS  CC»EC  living?  a  RATEC  oa?A“£TEo  ?  lYES/N?) 

NC 

i;  CC-PQ  LIVING?  A  CUAlIIATIvE  PARAkETEP  ?  (yES/NOI 
Y£S 

CCyhanC-->-nIn 


Figure  20  -  Continued 
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1$  •  »*3»t*;T£9  -  E%T£®  *  Mj!<9£9 
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I'.r.  --  ozzz 

'■ievt^C  --  iZZZ 
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*-  TZZZ 

r:sT*.\:E 
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u.r.  --  ic 

--  zzc 

'J.'.C.  --  36- 
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«CUi!f.G 
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: -rxClLLf '.T,  i-GOwG,  j-fAIB,  n-POO=,  3-v£Ry  PC3P 

Y  ALi. 

0. 

“A SVAAT 
I.' .  s .  c . 

PE'Kf-Y 


TCAC“* BS 

th:s  is  6  'aTc:  oaoa-ETEo  •  9*T£  as  ‘■wLLC.S: 

’-cxciLLr'.r,  “-poc",  3-.c?y  pco^ 

Y  ILt 

L'.:. 
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U.S.C. 

?  Ely 
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?£Ok£lv 


Figure  20  -  Continued 
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1 


COST 

w  •  C  • 

73 •  3CC 

MA^vAsr 

ksoc.scc  •zc:.::c. 

•  ••« 

w  •  3  •  • 

s  ^  r  r  r  *  ^ 

etat'ELt 

«•«! 

cisTAscr 


riiC 

..c. 

w»  e ,t«: 

tr'C.gCC 

iC.OCC 

0  aS  (C  • 

5E»tiEl.T 

S6C.:«.: 

tcc.crr 

HCU'SINi 

•  ••« 

tale 

w«  C  • 

UAf VAST 

5c:c 

GCOO 

rxCELLf.’ 

w  •  3  •  w  • 

eEBKtLT 

FA :» 

ecc? 

Figure  20  -  Continued 
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.... 


USCii’S  PRCrCAENCC  PACKACE  PR06R*** 


NOTE:  THE  COHNANOS  CRTE  C  ADO  CAN  BE  ISSUED  Only  ONCE  DURING 
A  SESSION  (  YOU  cannot  ISSUE  A  LIST  BEFORE  YOU  CREATE  THAT  FILE 


COMHANO— >CRTE 
ENTER  NO.  OF  SCENARIOS 
02 

ENTER  scenario  DESCRIPTION  FOR  SCENARIO  NO.  1 

SUPER  STUDENT  WITH  FINANCIAL  NEED 

ENTER  scenario  DESCRIPTION  FOR  SCENARIO  NO.  2 

STUDENT  UNO  LOONS  AT  CuLLEGE  FOR  FUN 

DO  YOU  WISH  TO  SNIP  the  paired  COHPARSION  ?  lYES/NOI 

YES 


SURE*  STUDENT  WITN  FINANCIAL  NEED 

COST 

.BBD 

distance 

.••SO 

HOUSING 

.•NC 

TEACHERS 

.•«C 

CO-EC  LIVING? 

.100 


STUDENT  MHO  LOONS  AT  COLLEGE  FOR  FUN 

COST 

.3itO 

DISTANCE 

.<•30 

HOUSING 

.8A0 

TEACHERS 

.100 

CO-ED  LIVING? 

.990 

COHHANO— >LIST 


Figure  20  -  Continued 
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C0LLC6C  EXAMPLE  CASE  1  USER’S  PREFERENCE  PACKAGE 

SUPER  STUDENT  mITH  FINANCIAL  NEED 


PAGE  I 


COST 

.S$0 

DISTANCE 

.«50 

HOUSING 

•  AND 

TEACHERS 

.S«0 

CO-EO  LIVING? 

.100 

COLLEGE 

STUDENT 

example  case  1  USER’S 

WHO  LOOKS  AT  college  FOR  FUN 

PREFERENCE  PACKAGE 

PAGE  2 

COST 

.3K0 

DISTANCE 

.KSO 

HOUSING 

.SSO 

TEACHERS 

.100 

CC-EO  LIVING? 

.PRO 

COLLEGE  example 

AVERAGE 

CASE  1  USER 

VALUES  FOR  EACH 

’S  PREFERENCE  PACKAGE 

parameter 

PAGE  3 

COST 

.610 

distance 

.MSO 

HOUSING 

•  6  6  0 

TEACHERS 

.K9S 

CO-EO  LIVING? 

.SA5 

COHHANO— >eNO 

Figure  20  -  Continued 
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SY&TCH  selection  MODEL  P»06R«M 


LIST  cr  available  barahETERS 


1  —  COST 

2  —  distance 

I  —  HOUSINS 
V  —  TEACHERS 
S  —  CO-ED  LIVING? 


00  TOO  kISH  TO  ENTER  TOUR  0»N  RATINGS  ?  IVES/NOJ 
NO 


SCENARIOS  available 

1  —  SURER  STUDENT  WITH  FINANCIAL  NEED 

2  --  STUDENT  WHO  LOOKS  AT  COLLEGE  FOP  FUN 


ENTER  NO  Of  CHOICE  OF  SCENARIO 
1 


SUPER  STUDENT  WITH  FINANCIAL  NEED 


parameters 

•  RATINGS 

COST 

•  .BBD 

distance 

•  .*S0 

HOUSING 

•  .USD 

TEACHERS 

•  .89C 

CO-ED  LIVING? 

•  .100 

Figure  20  -  Continued 


SH7CO  th£  Nu**ecR  or  paranctcrs  to  ee  incluoco  ik  the  decision  process 


ENTER  EACH  INTESER  NO.  ASSOCIATED  WITH  EACH  CHOSEN 
PARAhETER  (FROh  LONEST  to  H16NESTI 

parameter  no.  —  1 
parameter  no.  —  2 
parameter  no.  —  3 
parameter  no.  —  <i 
parameter  no.  —  S 


parameter  —  COST 

WOULD  TCU  like  TO  SPECIPT  A  LIMIT  THAT  THE  PARAMETER 
HAS  TO  SATISrr  7  (YES/NO) 

HO 

paRA-ETER  —  distance 

WOULD  YOU  LIKE  TO  SPECIFY  A  LIMIT  THAT  THE  PARAMETER 
HAS  TO  satisfy  7  lYES/NO) 

NO 


oaPAHETEP  —  M0USIN6 

WOULD  YOU  LIKE  TO  SPECIFY  A  LIMIT  THAT  THE  PARAMETER 
MAS  TO  satisfy  7  (YES/NO) 

NO 

parameter  —  TEACHERS 

WOULD  YOU  LIKE  TO  SPECIFY  A  LIMIT  THAT  THE  PARAMETER 
HAS  TO  satisfy  7  (YES/NO) 

NO 

parameter  —  CO-EO  LIVINS? 

A  OUALATITIWE  parameter— cannot  specify  a  range 


Figure  20  -  Continued 
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COLLEGE  exA>'PLE  CASE  1  ELIMINATION  TABLE 

SUP£P  STUDENT  blTH  financial  NEED  PAGE  1 


ELIMINATION  TABLE 
SUPER  STUDENT  gITN  FINANCIAL  NEED 


COLLEGES 


REASONS  FOR  ELIMINATION 


YALE 

U.O. 

harvard 


CO-ED  LIVING? 
CO-EO  LIVING? 
CO-ED  LIVING? 


DO  TOO  »1SH  TO  SEE  TABULAR  OUTPUT  ?  (YES/NCl 
YES 


COLLEGE  EXAMPLE  CASE  1  UTILITY  VALUES  TABLE 

SUPER  STUDENT  WITH  FINANCIAL  NEED  PAGE  1 


ABC 
0.000  C.OOO  c.ooo 


utility  VALUES  FOR  COLLEGE  EXAMPLE 


0 

.516 


COLLEGES 

A  —  tale 
B  —  U.O. 

C  —  HARVARD 
0  --  U.S.C. 

E  —  BERKELY 

OPTIMUM 

E  COLLEGES 

.520  E 


00  YOU  WISH  TO  EXECUTE  THE  PROGRAM  AGAIN  ?  (YES/NO) 
NO 


Figure  20  -  Concluded 


APPENDIX  A  -  PROGRAM  ANALYSIS 


The  SSMP  user  selects  the  parameters  and,  if  desired, 
parameter  limits  and  parameter  ratings.  This  information  is 
used  to  determine  the  beet  system  by  mathematically  evalu¬ 
ating  the  parameter  datawhich  have  been  weighed  by  the 
parameter  ratings.  The  user  can  specify  parameter  data 
limits.  If  a  system  and/or  subsystem  do  not  satisfy  these 
parameter  limits,  that  system  and/or  subsystem  are  eliminated 
from  the  decision  process. 

The  program  module  ELIHIN  evaluates  the  user's  parameter 
choices  and  limits  and  eliminates  unwanted  parameter  data  and 
systems  and/or  subsystems  that  do  not  satisfy  parameter 
limits. 

The  data  base  PP  (parameter  package)  is  set  up  so  that 
SSMP  evaluates  the  data  one  parameter  at  a  time  and  all  of 
the  data  for  the  systems  or  subsystems  for  that  parameter  at 
the  same  time. 

The  program  module  sets  up  two  arrays,  ELIM  and  MATRIX. 
The  array  ELIM  stores  the  parameter  that  eliminated  the 
system  or  subsystem.  This  array  is  used  to  print  out  the 
reasons  for  elimination  of  a  system  or  subsystem  and  is 
detailed  in  the  elimination  table.  The  array  MATRIX  stores  a 
zero  when  a  parameter  does  not  satisfy  a  limit  or  if  a 
parameter  is  not  chosen  to  participate  in  the  decision 
process.  If  a  system  and/or  subsystem  is  eliminated,  ELIMIN 
puts  zeros  in  the  array  MATRIX  for  that  system  and/or 
subsystem  parameter  data.  The  SSMP  considers  zeros  in  the 
parameter  package  (PP)  as  blanks  and  does  not  do  any  calcula¬ 
tions  or  evaluations  for  those  data. 

The  program  module  ELIMIN  then  calls  up  TABLE,  which 
prints  out  the  elimination  table.  Next,  the  program  module 
INVRT  is  called  to  invert  any  parameter  data  that  do  not  show 
the  best  value  as  the  lowest  value.  If  a  parameter  value  has 
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been  indicated  as  inverted,  INVRT  reads  in  that  parameter's 
data.  For  each  line  of  systems  or  subsystems,  INVRT  finds 
the  largest  value.  The  inverted  parameter  data  are  deter¬ 
mined  by  the  following  equation: 


inverted  parameter  = 


parameter  data 


If  the  parameter  data  do  not  need  inverting,  they  are 


written  out  onto  the  data  file  VPARM  untouched. 


SSHP  calls  the  program  module  OTILT,  which  determines  the 
best  system.  The  UTILT  module  first  reads  in  the  parameter 
data  from  the  data  file  VPARM.  Next,  it  eliminates  any 
parameter  data  for  any  eliminated  system  and/or  subsystems  by 
multiplying  the  PARAM  array  by  the  MATRIX  array.  The  zeros 
in  the  MATRIX  indicate  the  eliminated  systems  and/or 
subsystems.  The  UTILT  module  finds  the  smallest  and  largest 
value  for  each  line  of  parameter  data  and  calculates  the 
utility  of  each  system  parameter  by  the  following  equation: 

n  *=  largest  value  -  current  value 
a  largest  value  -  smallest  value 

For  example,  if  the  parameter  values  under  consideration  are 

9,  7,  3,  2,  1,  and  5,  9  would  be  the  largest  value  and  1  the 

smallest.  If  the  system  being  evaluated  has  the  parameter 

rating  of  3,  this  would  be  the  current  value,  and  the  utility 

of  the  parameter  for  the  system  under  consideration  would 

equal  6/8,  or  0.75.  This  utility  value  of  a  specified  system 

is  based  upon  an  individual  parameter  value  relative  to  the 

parameter  ratings  of  all  systems  under  consideration.  If  the 

largest  value  equals  the  smallest  value,  the  utility  is 

assigned  unity. 

To  calculate  the  overall  utility  for  each  system,  the 
utility  values  for  each  parameter  are  multiplied  by  their 
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respective  preference  ratings/  obtained  from  the  UPP  file/ 
and  the  resultant  products  are  summed: 

°sys“*^l^l  ”*■  *2^2  ^n^n 

K-  «  User's  preference  rating  for  each  parameter 

Q 

■  Utility  value  for  each  parameter 
SSMP  prints  out  the  results  in  the  utility  table. 
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APPENDIX  B  -  SYSTEM  SELECTION  MODEL  IN  BATCH  MODE 


When  a  particular  problem  is  too  large  to  be  run  interac¬ 
tively  with  the  programs  described  earlier,  the  problem  can 
be  solved  by  running  the  programs  in  batch  mode.  The  batch 
process  submits  the  job  to  a  system  batch  queue  so  that  it 
may  be  run  independently  of  the  user's  control.  The  batch 
process  allows  the  user  to  specify  whether  the  job  is  to  be 
printed,  punched,  or  sent  to  a  remote  terminal. 

When  a  program  is  run  interactively  the  user  must  input 
data  from  the  terminal  as  the  program  is  executing.  Batch 
mode  input  differs  from  interactive  in  that  the  input  data 
are  sent  in  the  batch  file,  along  with  the  job  control  cards 
that  execute  the  program.  This  makes  it  possible  for  the 
user  to  perform  other,  tasks  while  the  program  is  executing. 

Setting  up  a  program  to  run  in  batch  mode  is  a  simple 
process.  The  user  should  take  the  following  steps  in 
preparing  and  entering  the  batch  file: 

a.  Determine  the  dimensions  needed  for  the  arrays  to 
allow  the  program  to  process  the  particular  size  problem. 
The  reader  will  recall  that  array  dimensions  are  set  to 
maximum  interactive  memory  limits.  A  list  of  the  arrays  and 
their  dimensions  appears  in  Section  II,  Table  2.  Make  the 
appropriate  changes  in  the  source  files  and  recompile  the 
source.  For  the  decision  model  use  SYSSELB  and  SSMPB  as  the 
source  file  and  object  file,  respectively. 

b.  The  user  should  next  begin  to  set  up  the  batch  file 
itself.  The  first  card  of  the  file  should  be  the  job  card. 
The  job  card  parameters  consist  of  the  user's  box  number,  the 
estimated  CPU  and  I/O  times  in  seconds,  and  the  estimated 
requirements  for  core  memory  in  words.  The  last  three 
parameters  must  be  coded  in  octal,  or  base  eight,  numerals. 
The  specification  of  these  particular  parameters  is 
recommended  to  increase  system  efficiency  and  improve  job 
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turnaround  time.  Typical  values  might  be  TIO,  1050,  CM70000, 
meaning  8  seconds  cpu  time,  40  seconds  I/O  time,  and  28672 
words  of  memory  (all  values  given  in  base  10).  The  next 
thing  to  appear  on  the  job  card  is  a  period,  followed  by 
comments  to  the  operator  so  that  your  job  may  be  verified. 
These  consist  of  the  problem  number,  address  and  phone  number 
in  case  a  problem  should  arise.  The  next  cards  will  ATTACH 
the  data  files  needed  to  run  the  program,  and  then  the  object 
file  for  the  program  itself  must  be  ATTACHed.  Following  the 
ATTACH  cards  will  be  a  card  containing  the  object  file  name 
followed  by  a  period,  used  to  execute  the  file.  Next  in  the 
file  appears  a  *E0R,  which  separates  the  job  control  state¬ 
ments  from  the  data  to  follow  the  *E0R.  The  next  set  of 
cards  hold  the  data,  which  consist  of  all  the  responses 
normally  typed  by  the  user  during  interactive  execution.  The 
user  should  run  the  program  a  few  times  interactively  to  make 
certain  no  responses  are  left  out  of  the  batch  file  data 
section.  After  the  data  cards  are  finished,  the  file  is 
ended  with  *E0R  and  *E0F  cards. 

The  following  is  a  review  of  the  basic  form  of  the  file: 

Jobname,  Tnn,  lOmm,CMxxxxx.  problem#,  address,  phone. 

ATTACH,  data  filename. 

ATTACH,  data  filename. 

ATTACH,  object  filename. 

Object  filename. 

♦EOR 

All  input  data,  one  datum  per  line. 


*E0R 

♦EOF 

This  file  should  be  saved  and  made  permanent. 
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(c)  The  next  step  is  to  enter  the  file  into  the  batch 
queue.  This  is  accomplished  with  the  BATCH  command.  Two 
options  exist  as  to  where  output  from  the  batch  job  will  be 
sent,  and  the  user  should  decide  at  this  point  whether  or  not 
he  wishes  hardcopy  output  that  must  be  obtained  at  the 
computer  facility.  If  the  user  wishes  to  obtain  a  hardcopy 
of  his  output,  the  following  command  should  be  issued; 

BATCH,  batch  filename, INPUT. 

If  the  user  wishes  to  obtain  his  results  at  a  remote 
terminal,  the  following  command  is  issued: 

BATCH,  batch  filename, INPUT, HERE. 

When  the  user  issues  either  of  these  commands,  he  has  entered 
his  program  in  batch.  The  program  will  remain  in  the  queue 
until  it  is  executed.  If  the  user  has  chosen  the  second 
form,  results  may  be  examined  by  using  the  FIND  command. 
Format  for  the  FIND  command  is  as  follows: 

FIND, jobid. 

where  jobid  consists  of  enough  characters  of  the 
jobname  (listed  on  the  jobcard  of  the  batch  file)  to  identify 
it  uniquely.  See  the  NQS/BE  1  Reference  Manual  for  more 
details. 

The  file  will  first  appear  in  the  input  queue,  identified 
by  the  five-character  jobname  plus  two  system-generated 
characters,  then  will  enter  the  execute  queue,  and  eventually 
will  be  listed  as  residing  in  the  output  queue,  indicating 
the  task  is  completed.  The  user  may  examine  his  output  by 
first  making  the  file  local  with  another  form  of  the  BATCH 
command : 

BATCH, output  filename, LOCAL. 

and  by  using  either  the  PAGE  function  or  the  EDITOR  program. 
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APPENDIX  C  -  EXAMPLES 


These  examples  are  provided  to  demonstrate  to  the  user 
the  capabilities  of  SSNP  and  the  supporting  programs' 
options.  Included  are  several  examples  which  demonstrate 
exactly  how  the  problem  is  entered  into  the  model  and  which 
provide  some  insight  as  to  how  the  structure  of  a  problem  is 
chosen.  One  example,  the  generator  selection,  is  an  example 
of  a  problem  which  lends  itself  to  a  Case  3  type  breakdown. 
The  horse  example,  however,  is  a  good  example  of  a  decision 
which  could  not  logically  be  broken  down  further  than  a  Case 
1  problem. 

Mote  that,  in  all  the  examples,  the  SSNP  may  be  executed 
as  many  times  as  is  desired  in  order  to  see  how  different 
limitations  on  the  decision  process  affect  the  final  outcome. 
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•  parahctcr  package  program  • 


COMMANDS  AVAILABLE: 

CRTE  -  CREATES  FILE  Of  NAMES 

MNIN  -  ALLOvS  manual  entering  OF  PARAMETER  VALUES 
LIST  -  lists  out  names  aNC  PARAMETER  VALUES 
END  -  ENOS  program 
command  — >CRT£ 


ENTER  OATA  base  name  IMAX  16  (.HARSI 
REPORT  example 

ENTER  NO.  OF  STSTEMS  (2  DIGIT  NO.t 

DA 

ENTER  NO.  OF  LEVEL  1  SUBSYSTEMS  (2  DIGIT  NO.) 
C3 

ENTER  NO.  OF  LEVEL  2  SUBSYSTEMS  (2  DIGIT  NO.) 

o: 

ENTER  NO.  OF  parameters  (2  DIGIT  NO.) 
it 


ENTER  SYSTEM  SETNAME  (MAX. 
GENERATORS 

16  CHARS. 

I 

ENTER  name  for 
GAS  TURBINE 

GENERATORS 

NO. 

1 

(MAX. 

16 

CHARS ) 

ENTER  name  fob 
DIESEL 

GENERATORS 

NO. 

2 

(MAX. 

16 

CHARS) 

ENTER  NAME  FOR 
FUEL  CELL 

GENERATORS 

NO. 

3 

(MAX. 

16 

CHARS) 

ENTER  NAME  for 
STIRLING  ENGINE 

GENERATORS 

NO. 

« 

(MAX. 

16 

CHARS) 
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ENTER  NAPE  FOR  parameter  NO.  1 
ACQUISITION  COST 


ENTER  NAME  FOR 
LIFE  CTCLE  COST 
ENTER  NAME  FOR 
SYSTEM  EFF. 
ENTER  NAME  FOR 
START  UP  time 
ENTER  NAME  FOR 
SHUTDOWN  time 
ENTER  NAME  FOR 
reliability 
ENTER  NAME  FOR 
MAINT.  AND  OPER 
ENTER  NAME  FOR 

lifetime 
ENTER  name  FOR 
thermal  energy 

ENTER  NAME  FOR 
VOLUME/SIZE 
ENTER  NAME  FOR 
HEIGHT 

ENTER  NAME  FOR 
FUEL  USED 
ENTER  name  for 
growth  POTENTIA 
ENTER  name  for 
ENVIRON. CONSTR . 


parameter 

NO.  2 

parameter 

no.  I 

parameter 

NO  .  « 

parameter 

NO  .  S 

parameter 

NO.  6 

parameter 

NO  .  7 

parameter 

NO.  S 

parameter 

NO.  9 

parameter 

NO  .10 

parameter 

NO. 11 

parameter 

NO.  12 

Par  ameter 

NO.  13 

L 

parameter 

NO.  IN 

IS  acquisition  cost  *  numerical  parameter  ?  (YES/NOI 
TES 

POR  NUMERICAL  PARAMETERS.  THE  LOWEST  VALUE  IS 
CONStCCREO  THE  “BEST"  VALUE. 

00  YOU  WISH  TO  invert  THIS  FOR  ACOUISITION  COST  7  (YES/N'OI 
NC 

IS  LIFE  CYCLE  COST  A  NUMERICAL  PARAMETER  ?  (YES/NOI 
YES 

FOR  NUMERICAL  PARAMETERS.  THE  LOWEST  VALUE  IS 
CONSIOEREO  the  "BEST"  VALUE. 

00  YOU  WISH  TO  invert  THIS  FOR  LIFE  CYCLE  COST  7  (YES/NOI 
NO 

IS  SYSTEM  EFF.  A  numerical  PaPAmCTER  ?  (YES/NOI 

NO 

IS  SYSTE*  EFF.  A  RATED  PARAMETER  ?  (YES/NOI 

YES 

IS  start  up  time  a  numerical  parameter  7  (YES/NOI 
YES 

FOR  NUMERICAL  parameters.  ThE  LOWEST  VALUE  IS 
CONSIOEREO  THE  “BEST"  VALUE. 

00  YOU  WISH  TO  INVERT  THIS  FOR  STARV  UP  TIME  7  (YES/NCI 
NO 

IS  SHUTDOWN  TIME  A  numerical  PARAMETER  ?  (YES/NCI 
YES 

FOR  NUMERICAL  Parameters,  the  lowest  value  is 

CONSIDERED  THE  “BEST**  VALUE. 

00  YOU  WISH  TO  INVERT  THIS  FOR  SNUTOOWN  TINE  7  lYES/NC) 
NO 

IS  reliability  a  numerical  PAPAMETER  ?  (YES/NOI 

NO 

IS  reliability  a  rated  parameter  7  (YES/NOI 

YES 

IS  MAINT.  and  OPER.  a  numerical  PARAMETER  7  (YES/NOI 
NO 

IS  MaINT.  and  OPER.  A  rated  RARAMCTER  7  (YES/NOI 
YES 


IS  LIFCTIMC  «  NUMCRICAL  RA*A*CTCR  '*  (YCS/NO> 

VES 

rOR  NUHCRICAS.  RaRa^CTERS.  the  lohest  value  is 
CONSIDERED  TNE  “BEST'*  VALUE. 

DO  YOU  UISH  TO  Invert  this  for  LIFETIHE  T  IVES/NOI 

NO 

IS  THERNAL  ENER6Y  A  numerical  RARAHETER  T  IYES/N0> 

NO 

IS  THERNAL  CNERDY  A  RATED  RARAHETER  ?  IYES/NO) 

YES 

IS  VOLUNE/SIIE  A  NUNERICAL  RARANETER  ?  lYES/NOI 

YES 

FOR  NUMERICAL  R*RaNETeRS.  ThE  LOWEST  VALUE  IS 
CONSIDERED  THE  "BEST**  VALUE. 

CO  YOU  WISH  TO  Invert  this  for  volune/sizc  ?  <yes/noi 

NO 

IS  •EIGHT  A  NUNERICAL  RARANETER  ?  <YES/NO> 

YES 

FOR  NUMERICAL  RaRANETERS.  THE  LOWEST  VALUE  IS 
CONSIDERED  the  “BEST**  VALUE. 

DO  YOU  WISH  TO  INVERT  THIS  FOR  WEIGHT  T  (YCS/NO) 

NO 

IS  FUEL  USED  A  NUNERICAL  RARANETER  ?  (YES/NO) 

YES 

FOR  NUMERICAL  RaRaNETERS.  ThE  LOWEST  VALUE  IS 
CONSIDERED  THE  “BEST"  VALUE. 

DO  YOU  WISH  TO  invert  THIS  FOR  FuEL  USED  ?  (YES/NO) 

NO 

IS  growth  ROTENTIAL  a  numerical  RARANETER  7  (YES/NO> 

NO 

IS  growth  ROTENTIaL  a  rated  parameter  7  iYES/NOI 
YES 

IS  ENVIRON. CONSTR.  A  NUMERICAL  PARAMETER  ?  CYES/NO) 

NO 

IS  ENVIRON. CONSTR.  A  rated  PARAMETER  7  fYCS/NO 
NO 

IS  ENVIRON. CONSTR .  A  QUALITATIVE  PARAMETER  ?  (YES/NO) 

YES 

command  — >MNtN 
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«COUISITIOi«  COST 

TMIS  IS  k  HUPCS^l.C  PARAMETER  -  ENTER  A  NyMtER 

6AS  TURBINE  —  ZIOC 

OlESEt  —  2000 

PUEL  CELL  —  3000 

STIRLING  ENGINE  •-  1200 

LIRE  CrCLE  COST 

this  is  a  numeric  parameter  -  ENTER  A  NUMBER 

GAS  TURBINE  —  30000 

DIESEL  —  ROOOO 

PuEL  CELL  —  23000 

STIRLING  ENGINE  —  INOOO 

SYSTEM  EPP. 

This  is  a  rated  parameter  •  rate  as  pollohs: 

I'EXCELLENT,  2-6000f  3-PAIR,  R-POOR,  S-wERY  POOR 

GAS  TURBINE  —  2 

DIESEL  —  1 

PUEL  CELL  —  3 

STIRLING  ENGINE  —  1 

START  UP  TIME 

THIS  IS  A  NUMERIC  parameter  -  ENTER  A  NUMBER 
GAS  TURBINE  —  2h 

DIESEL  —  8 

PUEL  CELL  —  R« 

STIRLING  ENGINE  —  T2 
SHUTOOHN  TINE 

THIS  IS  A  numeric  parameter  -  ENTER  A  NUMBER 

GAS  TURBINE  —  12 

DIESEL  —  6 

PUEL  CELL  —  2 

STIRLING  EVGINE  —  2R 
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WELIABILITY 

this  is  tk  RATED  RARAHETER  -  RATE  AS  FOLLOUS: 

I'CXCELLCNT,  2-6000>  S-FAIR,  A-POOR,  S-VERT  POOR 

SAS  TURBINE  ••  1 

DIESEL  —  2 

FUEL  CELL  —  3 

STIRLING  ENGINE  —  « 

maint.  and  OPER. 

this  is  a  rated  parameter  -  RATE  AS  FOLLOWS: 

1-EXCELLENT,  2*6000.  3-FAIR,  «-POOR.  S-VERT  POOR 

GAS  TURBINE  —  3 

DIESEL  —  2 

FUEL  CELL  —  2 

STIRLING  ENGINE  —  1 

LIFETIME 

this  is  a  numeric  parameter  -  enter  a  number 

GAS  TURBINE  —  100 

DIESEL  —  SO 

FUEL  CELL  —  23 

STIRLING  ENGINE  —  22 

thermal  energy 

this  is  a  rated  parameter  -  rate  as  FOLLOWS: 

1-EXCELLENT,  2-6000,  3-FAlR,  4-POOR,  S-TERT  POOR 


GAS  TURBINE  —  3 

DIESEL  —  2 

FUEL  CELL  —  2 

STIRLING  ENGINE  —  1 
VOLUME/SIZE 

This  is  a  numeric  parameter  -  enter  a  number 

GAS  turbine  —  400 

DIESEL  —  300 

FUEL  CELL  —  200 

STIRLING  ENGINE  —  4$0 
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UCI6HT 

THIS  IS  t  MU-tme  PAHiUCJCP  -  CNTC*  a  NUMtCA 

6«s  turbjnc  —  soa 

OICSCL  —  5«0 

ruEt  CELL  •*  200 

STIAL1N6  EnSXNE  —  1200 

FUEL  USED 

THIS  IS  A  NUHERXC  FAMAHETER  -  ENTER  A  NUNRER 
8AS  TuROXNE  —  3« 

DIESEL  —  23 

FUEL  CELL  ••  NT 

STIRLINC  CN6XNE  —  12 
SROuTN  rotentxal 

THIS  IS  A  rated  RARANCTER  -  RATE  AS  FOLLOUSt 

l-EXCELLENT,  2-6000.  3-FaIR,  <-R00R.  S-vERt  ROOR 

6AS  TURBINE  —  1 

DIESEL  —  2 

FUEL  CELL  —  3 

STXRLIN6  ENGINE  —  « 

ENVIRON. CONSTR. 

THIS  IS  A  qualitative  RARAHETER  -  ENTER  1  FOR  TES,  0  FOR  NO 

6AS  TURBINE  —  1 

DIESEL  —  1 

FUEL  CELL  —  1 

STIRLING  ENGINE  —  1 

CORHANO  — >L1ST 
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ACQUISITION  COST 


GAS  TuQSInC 

oiescL 

TUCL  CELL 

2100.300 

2000.000 

3000.000 

STIRLING  CNGINC 

1200.000 

•  mmn 

LIFE  CYCLE  COST 

GAS  TURBINE 

DIESEL 

FUEL  CELL  • 

SOOCO.OOO 

■0000.000 

23000. OCO  • 

STIRLING  CNGINC 

14000.000 

«•«« 

SYSTEM  EFF. 

GAS  TUNBlNC 

DIESEL 

FUEL  CELL 

6000 

EXCELLENT 

fair 

STIRLING  CNGINC 

EXCELLENT 

start  u“  tine 

•mmt 

6AS  TURBINE 

DIESEL 

ruEL  CELL  • 

2H.000 

•  •ODD 

••.OCD  • 

STIRLIN6  EN61NE 

•  ••4 

72.000 

SHUTOOtiN  TIME 

BAS  turbine 

CIESEL 

TUtL  CELL 

12.000 

4.00C 

2.000 

STIRtlNB  ENGINE 

2R.000 

RELIABILITT 

•  ••4 

BAS  turbine 

OIESEL 

FUEL  CELL 

EXCELLENT 

GOOD 

FAIR 

STIRLING  ENGINE 

•  ••4 

ROOR 
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NAINT.  ANO  OPCR 


V0LUHE/S17e 


6*S  TU»tINC 

CtCSCL 

FUEL  CELL 

«oc.aao 

300.000 

20C.0CC 

STIRLING  CN6XNC 

RSO.OOO 

mCIGHT 

•  ••« 

GAS  TURBINE 

OIESEL 

FUEL  CELL 

300.000 

340.000 

200.000 

STIRLING  ENGINE 

1200.000 

»••• 

mmmt 

FUEL  USEO 

GAS  TURBINE 

OIESEL 

FUEL  CELL 

34.000 

23.000 

67.CCC 

STIRLING 

Engine 

12.000 

US£h'S  PaETERCNCC  P*CN*GC  >906^* 


NOTE:  THE  COHhakO!  CRTE  l  «C0  ClK  tC  ISSUED  ONLY  CSCE  DURING 
»  SESSION  t  YOU  C«SNOT  ISSUE  *  LIST  BEFORE  YOU  CREATE  That  FILE 


COMKANO— >CPTE 

ENTER  NO.  OF  scenarios 

03 

ENTER  scenario  description  FOR  SCENARIO  NO. 
CONUS 

ENTER  SCiNAPIC  DESCRIPTION  FOR  SCENARIO  NO. 
OVERSEAS 

ENTER  scenario  DESCRIPTION  FOR  SCENARIO  NO. 
REMOTE 

DO  YOU  NISH  TO  SKIP  THE  paired  CQhPkRSION  ? 
TCS 


1 

2 
3 


t YES/NO ) 


CONUS 

ACOUIIITION  COST 

.4SC 

LIFE  CYCLE  COST 
.3SC 

SYSTCP  EFF. 

.SAC 

start  u*  tihe 

SmoTCOkN  TI“£ 
.900 

RElIASILITy 

.  A  3  w 

PAINT.  AND  OPER. 
.SAC 

LIFETIPE 

.u: 

thermal  EN£05Y 
.990 

VOtUME/slIE 

.  6  w  0 

WEIGHT 

.34; 

FUEL  USED 

.Tac 

GROWTH  POTENTIAL 
.SAC 

ENVIRON. CONSTP. 
.340 


135 


''7 


'^*ckse*s 

*CaL‘iSITIO^  COST 
.3<«3 

LIFE  CYCLE  COST 
.4SO 

SrSTE-  EFF. 

.89C 

START  U»  TI-E 
.99C 

SMUTuOlN  TI“E 

•  430 

RELlAeiLI’Y 

.120 

hAlKT.  AND  CPER. 

•  TdC 

LIFETIME 

•  SbC 

Thermal  Enepgy 
.230 

V0LUME/SI2E 
.  T90 
WEIGHT 
.4SC 

FUEL  USCC 
.76C 

GRO»TM  potential 
.77C 

•Environ. conSTo. 

.sac 
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»t»OTE 

tC,ClSITIOt.  COiT 

•  **  5  c 

Lire  CYCLE  COST 
.773 

SYSTE'*  EFF. 

.220 

ST*RT  UP  TI^E 
.103 

SHgTOOwN  TI»E 
.633 

scl:6Sil:ty 

."SO 

ifcC  OfEH. 

.133 

LIFETIME 

.933 

7M£RH*L  e*<£“6Y 
.303 

V0LUME/S12E 

.63C 

weight 

.633 

FUEL  USEO 
.93C 

GROWTH  POTENTIAL 

CNv IROH.COHSTR. 
.573 

COhhahO— >l!ST 
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ACSUISITIOK  COST 

.«sc 

life  cycle  cost 

.  3«C 

SYSTE>’  EFF. 

.  56C 

Sr*PT  UP  TIPE 

.  TSC 

SWUTQO.N  TI'*E 

.90C 

reliability 

.use 

MAiNT.  ANO  OPEE. 

.  S6C 

lifetime 

.  12C 

thermal  energy 

.«9C 

vOlUME/SIZE 

.feCO 

.EIGHT 

.3<tO 

FUEL  use; 

.  ta: 

GROWTH  potential 

.560 

ES.iaON.CONSTR. 

.3hC 

etEE  : 
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ACPOAT  £x»)‘»l.r 

OVCRSC«S 


CASE  1  LSER'S  PRCr£R£MC£  PiCKtGE 


PACE 


ACCUZSITIOM  COST  .SAC 
Lire  CYCLE  COST  .use 
SYSTCP  EFF.  .890 
ST*PT  OR  tike  .990 
SHoTOChN  Tine  .9Sa 
R£LlAeiLirv  .12S 
MAINT.  ANO  0R£R.  .7£0 
LIFETIME  .S60 
thermal,  ENERGY  .230 
V0LUMC/SI2C  .790 
■  EIGHT  .1450 
FUEL  USED  .750 
GROWTH  potential  .770 
ENVIRON. CONSTP.  .SCO 
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REPOST  example 
REMOTE 


CASE  1 


USEO'S  PREFEREfiCE  PACKAGE 


PaSl 


AC8U1S1TI0N  COST  .ASO 
life  cycle  cost  .773 
system  EFF.  .223 
start  up  Tl-E  .ICC 
SHuTOOAN  TIm£  .600 
RElIASILITt  .aSC 
MAiNT.  ANO  OPEfi.  .130 
lifetime  .930 
thermal  energy  .IC3 

vCLUMt/sirc  .fccc 

aEIGHT  .SCO 
FUEL  USED  .930 
growth  potential  .ICC 
ENwIROM.COKSTP.  .«?: 
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PEPCftT  CX*«*CC  C*S£  i  liS£»*S  ^«rFER£hC£  P*CK*G£ 

XV£RX6e  VALUES  FOR  EACH  l>ARAr>ETER  etCi  » 


AcauisirioK  cost 

.PlI 

LIFE  CYCLE  CCSY 

.£20 

SYSTEH  CFF. 

.557 

START  UR  TIRE 

.52? 

SHuTDO.N  TIRE 

.Gs: 

REulASlLlTY 

.  I«C 

«AIVT.  AHO  OREP. 

.5p7 

lifetime 

.527 

thermal  energy 

.473 

voluhe/size 

.66  3 

vEIGHT 

.53C 

FUEL  USEC 

.-•25 

GROWTH  ROTCHTIal 

.<•77 

ENVlROAi.CONSI?. 

.47C 

CONMANa— >£NS 
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SYSTEM  SELECTION  HOOEL  Pft06n*N 


LIST  or  AVAILABLE  PARAMETERS 


1  —  ACOUISXTION  COST 

2  —  LIFE  CYCLE  COST 

3  —  SYSTEM  EFF. 

»  —  START  UP  TINE 

5  —  SHUTOOUN  TIME 

6  —  RELIABILITY 

7  —  m*INT.  and  OPER. 

8  —  LIFETIME 

9  —  thermal  energy 

10  —  VOLUME/SIZE 

11  —  WEIGHT 

12  —  FUEL  USED 

13  —  growth  potential 

14  ->  ENVIRON. CONSTR  . 


00  YOU  WISH  TO  ENTER  YOUR  OWN  RATINGS  ?  IY£S/NO> 
NO 


SCENARIOS  available 

1  —  CONUS 

2  —  overseas 

3  —  REMOTE 


ENTEP  NO  OF  CHOICE  OF  SCENARIO 
2 
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OVCRSCAS 


parameters 

•  RATINGS 

tm 

acquisition  cost 

•  .WOO 

life  CtCUE  cost 

•  .TBO 

system  eff. 

p  .110 

START  UP  time 

•  .TTO 

SHUTDOWN  time 

•  .VSO 

RELIABILITY 

•  .800 

maint.  and  oper. 

•  .T80 

lifetime 

•  .«sc 

Thermal  energy 

*  .SbO 

VOLUME/SIZE 

P  .500 

WEIGHT 

p  .T80 

FUEL  USED 

•  .780 

growth  potential 

p  .»30 

ENVIRON .CONSTR. 

p  .6  70 

wm 

enter  the  no»»£R  or  paraheters  to 


BE  INCLOOEC  IN  TNE  OECTSION  PROCESS 


ENTER  each  INTEBER  NO. 
PARAHETER  tfROH  LOWEST 


ASSOCIATED  with  each  chosen 
TO  HIGHEST » 


Parameter 

parameter 

parameter 

parameter 

parameter 

parameter 

parameter 

parameter 

parameter 

parameter 

parameter 

parameter 

parameter 

parameter 


NO. 

— 

1 

NO. 

•- 

2 

NO. 

-• 

3 

NO. 

-• 

H 

NO. 

PP* 

s 

NO. 

s 

NO. 

7 

NO. 

— 

6 

NO. 

-- 

» 

NO. 

•• 

to 

NO. 

— 

11 

NO. 

•• 

12 

NO. 

-- 

13 

NO. 

It 

0*R*kETE»  —  ACQUISITION  COST 

WOULD  YOU  LIKE  TO  SPECIFY  A  LIHIT  ThAT  THE  PARAMETER 
HAS  TO  satisfy  ?  (YES/NO> 

NO 


PAPAhETEB  —  LIFE  CYCLE  COST 

WOULD  YOU  LIKE  TO  SPECIFY  A  LlHlT  THAT  THE  PARAMETER 
HIS  TO  SATISFY  7  (YES/NO) 

NO 

parameter  —  SYSTEM  EFF. 

WOULD  YOU  LIKE  TO  SPECIFY  A  LIMIT  THAT  THE  PARAMETER 
HIS  TO  satisfy  ?  lYES/NOI 
NO 

parameter  —  start  up  time 

WOULD  YOU  LIKE  TO  SPECIFY  A  LIMIT  THAT  THE  PARAMETER 
HAS  TO  satisfy  ?  (YES/NOt 
NO 

parameter  —  SHUTuOiiN  TIME 

would  you  like  to  SPECIFY  A  LIMIT  THAT  ThE  PARAMETER 
HAS  TO  satisfy  ?  (YES/NOI 
NO 


parameter  —  reliapility 

would  you  like  to  specify  a  limit  that  the  parameter 
MAS  to  satisfy  ?  lYES/NOJ 
NO 


parameter  —  MAINT.  AND  OPER. 

WOULD  YOU  LIKE  TO  SPECIFY  A  LIMIT  THAT  THE  PARAMETER 
HAS  TO  satisfy  7  (YES/NO) 

NO 

parameter  ”  LIFETIME 

WOULD  YOU  LIKE  TO  SPECIFY  A  LIMIT  THAT  THE  PARAMETER 
HAS  TO  SATISFY  7  lYES/NOI 
NO 

parameter  —  thermal  ENEPGY 

WOULD  YOU  LIKE  TO  specify  A  LIMIT  THAT  THE  PARAMETER 
HAS  TO  SATISFY  7  (YES/NO) 

NO 

parameter  —  VOLUME/SIEE 

WOULD  YOU  LIKE  TO  SPECIFY  A  LIMIT  THAT  THE  PARAMETER 
HAS  TO  satisfy  7  (YES/NO) 

NO 
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»>*B**(£TEO  —  kEIGMT 

WOULD  YOU  LIKE  TO  SPECIFY  A  LlMlT  THAT  THE  PABAMETER 
HAS  TO  SATISFY  ?  (YES/NO) 

NO 

BABAHETEP  —  FUEL  USED 

WOULD  YOU  LIKE  TO  SPECIFY  A  LIHIT  THAT  THE  PARAHETEB 
HAS  TO  satisfy  ?  (YES/NO) 

NO 

PABAHETEP  —  GROWTH  POTENTIAL 

WOULD  YOU  LIKE  TO  SPECIFY  A  LIMIT  THAT  THE  PARAMETER 
HAS  TO  satisfy  ?  (YES/NO) 

NO 

PARAMETEP  —  ENVIRON. CONSTR. 

A  oualatitive  parameter — cannot  specify  a  range 

DO  YOU  WISH  TO  SEE  TABULAR  OUTPUT  (YES/NOi 
YES 


REPORT  EIAMPLE  case  I  utility  VALUES  table 

OVERSEAS  page  I 


utility  values  for  REPORT  E»*«PLt 

GENERATORS 

A  ••  GAS  TURBINE 
8  -  DIESEL 

C  -•  FUEL  CELL 
0  --  STIRLING  ENGINE 
OPTIMUM 

A  8  C  0  GENERATORS 

.60S  .687  .S7«  .S«7  B 


DO  YOU  WISH  TO  EXECUTE  THE  PROGRAM  AGAIN  7  lYES/NO* 
NO 


145 


parameter  package  program 


commands  AVAlLAdUE: 

CRTE  -  CREATES  FILE  OF  NAMES 
MNIN  -  ALLO.S  manual  ENTERING  OF  PARAMETER 
LIST  -  LISTS  OUT  NAMES  ANO  PARAMETER  VALUES 
FNC  -  ENOS  OROGBAM 


CC“MANP  — >CRT£ 


ENTEs  DATA  base  Name  (MAX  16  CHARSI 
REPORT  example 

ENTER  NO.  OF  SYSTEMS  (2  DIGIT  NO.) 

DS 

ENTER  NO.  OF  level  1  SUBSYSTEMS  (2  DIGIT  NO. I 

DC 

FNTER  NO,  OF  level  2  SUBSYSTEMS  (2  DIGIT  NO. I 
DC 

ENYE»  NC.  OF  parameters  (2  DIGIT  NO.J 
C6 

Enter  system  setname  («ax.  u  chars. i 
HORSES 


Enter  name 

FOR 

horses 

NO« 

1 

(MAX. 

16 

LuCky  striker 

••nter  name 

HAN  OF  kAR 

FOR 

horses 

NO« 

2 

(HAX  . 

16 

enter  name 

FCR 

horses 

NCr 

1 

(MAX  . 

16 

Enterprise 
Enter  nahE 

FC8 

horses 

NO. 

<• 

(MAX. 

16 

The  IEEkE* 
Enye®  na“E 

FOR 

horses 

NO  « 

c 

(“AX  . 

16 

ALtx  Tme  great 


values 


Chars  > 

CHARS) 
CHARS ) 
CHARS ) 
Chars  ) 
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EKT£o  nahe  for  parameter  no.  1 
SPEED 

ENTEP  name  for  parameter  NO.  2 
6ATt  start 

ENTER  NA-E  FOR  PARAMETER  NO.  J 
PACkGRCUNO 

Enter  name  for  parameter  no.  « 
PREV.  REC. 

Enter  name  for  parameter  no.  s 

PIOST  PACE? 

ENTER  name  for  parameter  NO.  6 
LuCk 


TS  SPEED  A  numerical  PAPAmCTER  ?  «rES/NO) 

TES 

Fcp  NUMERICAL  Parameters,  the  lowest  wacue  is 

CONSIDERED  THE  “BEST"  VALUE. 

CC  vou  WISH  TO  INVERT  THIS  FOR  SPEED  ?  (TES/NC) 

■NC 

IS  DATE  start  a  numerical  PARAMETER  ?  tYES/NO» 

TES 

FCP  NUMERICAL  Parameters,  tme  lowest  value  is 
considered  the  "BEST"  VALUE. 

CC  you  WISH  TO  INVERT  THIS  FoR  GATE  START  ?  (TES/NO) 

NC 

IS  SALFGPOUNC  A  NUMERICAL  PARAMETER  ?  JVES/NCl 

NO 

IS  oACFGROUNO  a  rated  parameter  ?  «y£S/NO) 

TES 

TS  PREV. PEC  A  numerical  PARAMETER  ?  (TES/NO) 

NO 

IS  PREV. PEC  A  RATED  PARAMETER  ?  (r£5/N0) 

TES 

IS  first  Race?  a  numerical  parameter  ?  (TES/NO) 

NC 

IS  FIRST  race?  a  rated  PARAMETER  ?  (YES/NO) 

NC 

IS  FIRST  RACR?  a  qualitative  oapameTER  ?  (yES/NO) 

YES 

IS  LUCK  A  numerical  Parameter  ?  (yes/no 

NO 

IS  luck  a  rated  parameter  ?  (TES/NO) 

YES 

COMMANr-->MNlN 


» 

I 


SPEED 


this  is  <  VU^CPIC  PARAMETER  •  ENTER  A  NUMBER 

LUCKV  striker 

MAN  OF  klR 
ENTERPRISE 
THE  SEEKER 

ale*  the  great 

GATE  start 

THIS  IS  A  numeric  parameter  -  ENTER  A  NUMBER 


LUCKY  striker  —  2 

“AN  OF  .AR  —  3 

ENTERPRISE  —  4 

the  seeker  —  I 

ale*  the  great  —  s 

EACKGROUNO 


this  is  a  rated  parameter  -  PATE  AS  FOLLOnS: 
1-EXCELLENT,  2-GOOO,  3-FAIP,  4-POOR,  S-VERY  POOR 


lucky  striker  —  2 
“AN  OF  .AH  —  3 
ENT£3PB1S£  —  2 

the  seeker  —  1 
alEX  the  great  --  2 
RREV.REC 


This  is  a  rated  parameter  -  rate  as  follons; 

l-EXCELLENT,  2-GCUO,  J-FAIR,  4-POOO,  S-YERY  POOR 


LUCKY  strike®  --  I 

“AN  OF  .AR  —  2 

ENTERPRISE  —  2 

the  seeker  —  J 

ALEX  THE  GREAT  --  I 


FIRST  PACE? 

THIS  IS  A  qualitative  parameter  -  ENTER  1  FOR  YES,  C  FOR  NO 


LUCKY  strike®  --  I 
MAN  OF  hAR  --  I 
ENTERPRISE  .  --  I 
the  seeker  "  I 
alex  the  great  —  I 

LUCK 


this  IS  A  RATED  parameter  -  RATE  AS  FOLLOWS: 
I-ExCELLENT,  2-GOOO,  3-FAIR,  4-POOR,  5-VERY  POOR 


LUCKY  STRIKE®  —  3 
“AN  OF  WAR  --  2 
ENTERPRISE  --  2 
ThE  SEEKER  —  I 
alex  the  great  —  4 
COMmanD-.xlIST 


-  200 

-  244 

-  300 

-  201 
-  190 
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SPECJ 


LUCnV  STPIKEP  KAN  OF 

WAR 

enterprise 

•  ••• 

200.000 

2KK.00C 

300.000 

TN£  SEEKER 

ALEX 

the  great 

•  ••« 

201.000 

190.000 

GATE  start 

•  ••% 

LUCkY  STR1»(£0 

4,  auGC 

KAN  OF  WAP 

3.000 

ENTERPR ISE 

9.1:00 

•  ••• 

•  ••1 

the  seCKER 

1 .000 

ALEX 

the  great 

5.000 

BACKGROUND 

luckt  striker 

KAN  OF  WAP 

enterprise 

GOOD 

FA  IR 

GOOD 

the  seeker 

ALE*  the  great 

excellent 

GOOC 

} 


PREV.REC 


LOCKr  STPIKEP 
EXCELLEI.T 


HAN  OF  yAP 
6000 


The  meeker 

FAIR 


enterprise 

GOOD 

ALEX  THE  GREAT 
EXCELLENT 


FIRST  RACE? 


LUCKY  striker 
YES 


HAN  OF  WAR 
YES 


THE  SEEKER 
YES 


ENTERPRISE 

YES 

ALEX  the  great 
YES 


LUCKY  striker 

fa  IR 


han  of  hap 
GOOD 


the  seeker 
excellent 


enterprise 

6000 

ALEX  The  GREAT 
POOR 


COhmanO. —  >ENP 
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USER’S  PREFERENCE  PACKAGE  PROGRAx 


NOTE;  the  COMHANDS  CRTE  C  ADD  CAN  BE  ISSUED  ONLY  ONCE  DURING 
A  SESSION  L  YOU  cannot  ISSUE  A  LIST  BEFORE  YOU  CREATE  THAT  fUE 


COMHAND — >CRTE 
ENTER  NO.  OF  SCENARIOS 
02 

ENTER  SCENARIO  DESCRIPTION  FOR  SCENARIO  NO.  1 

fast  morse 

ENTER  scenario  description  FOR  SCENARIO  NO.  2 
LONG  distance  MORSE 

DO  YOU  WISH  TO  SKIP  THE  PAIRED  CQHPaRSION  ?  (YES/NO) 
YES 


fast  morse 

SPEED  ■ 

.990 

GATE  start 

.  5  6  C 

BACKGROUND 

.2JC 

PREV  .REC. 

.670 

FIRST  RACE? 

.550 

LUCK 

.990 


LONG  distance  horse 

SPEED 

.665 

GATE  start 
.SC5 

BACKGROUND 

.56C 

PREV.OEC. 

.330 

FIRST  RACE? 

.665 

LUCK 

.835 

COMMAND — >LIST 
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9EP0RT  EX*HPLE 
fast  horse 


CASE  1 


USER'S  PREFERENCE  PACKAGE 


PAGE  1 


SPEED 

.990 

GATE  START 

.S60 

BACKGRQUNO 

.230 

PREV.REC. 

.670 

FIRST  RACE? 

.SSO 

LUCK 

.990 

REPORT  example 

LONG  OISTANCE  horse 

CASE  1  USER'S 

PREFERENCE  PACKAGE 

PAGE  2 

SPEED 

.390 

GATE  START 

.450 

background  V 

.890 

PREV.REC. 

.990 

FIRST  RACE? 

.780 

LUCK 


780 


REPORT  example 

case  1  USER 

•S  PREFERENCE  PACKAGE 

AVERAGE 

values  for  each 

PARAHETER 

PACE  3 

SPEED 

.6*5 

GATE  START 

.SOS 

BACKGROUND 

.563 

PRtV.REC. 

.S30 

FIRST  RACE? 

.66S 

LUCK 

.BBS 

CQMWANO-->lNO 
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SrSTEH  SELECTION  NOOEL  PftOfiR«N 


LIST  OF  available  PARANETERS 


1  —  SPEED 

2  —  SATE  START 

3  —  BACK6R0UN0 
A  —  PREV.REC. 

5  —  FIRST  PACE? 

6  —  LUCK 


DO  YOU  WISH  TO  ENTER  YOUR  OWN  RATINGS  ?  (YES/NO) 
NO 


scenarios  available 

1  —  FAST  MORSE 

2  —  LONS  distance  horse 


ENTER  NO  OF  CHOICE  OF  SCENARIO 
2 


LONS  DISTANCE  HORSE 


PARAMETERS 

•  ratings 

SPEED 

•  .3*0 

sate  start 

•  .A50 

BACKGROUND 

•  .B90 

PREV.REC. 

•  .990 

FIRST  RACE? 

•  .780 

•««« 

LUCK 

*  .780 
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ENTER  THE  number  OF  PARAMETERS  TO  BE  INCLUDED  IN  THE  DECISION  PROCESS 
6 

enter  each  integer  NO.  ASSOCIATED  WITH  EACH  CHOSEN 
parameter  (FROM  LOWEST  TO  HIGHEST! 

parameter  no.  — '  I 

PARAMETER  NO.  —  2 

parameter  NO.  —  3 

parameter  no.  —  A 
parameter  no.  —  S 
parameter  no.  —  b 


parameter  "  SPEED 

WOULD  too  like  to  specify  a  limit  that  the  parameter 
HAS  TO  satisfy  7  (YES/NO) 

NO 

parameter  “  GATE  START 

WOULD  YOU  LIKE  TO  SPECIFY  A  LIMIT  THAT  THE  PARAMETER 
HAS  TO  satisfy  ?  (YES/NO) 

NO 

parameter  —  BACKGROUND 

WOULD  YOU  LIKE  TO  SPECIFY  A  LIMIT  THAT  THE  PARAMETER 
HAS  TO  satisfy  ?  (YES/NOI 
NO 

PARAMETER  —  PREV.REC. 

WOULD  YOU  LIKE  TO  SPECIFY  A  LIMIT  THAT  THE  PARAMETER 
HAS  TO  satisfy  ?  (YES/NOI 
NO 

parameter  —  FIRST  RACE? 

A  oualatitive  parameter— cannot  specify  a  range 
parameter  —  LUCK 

WOULD  you  LIKE  TO  SPECIFY  A  LIMIT  THAT  THE  PARAMETER 
HAS  TO  satisfy  7  (YES/NOI 
NO 


DO  YOU  WISH  TO  SEE  TABULAR  OUTPUT  ?  (YES/NOI 
YES 
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J 


REPORT  eXAHPuC  CASE  1  UTILITY  VALUES  TAStt 

LONG  DISTANCE  MORSE 


utility  VALUES  FOR  REPORT  EXAMPLE 
HORSES 

A  —  LUCKY  STRIKER 
8  —  MAN  OF  UAR 
C  —  ENTERPRISE 
0  —  THE  SEEKER 
C  —  ALEX  THE  GREAT 
OPTlHUM 
E  HORSES 

.60R  0 


DO  YOU  WISH  TO  EXECUTE  THE  PROGRAM  AGaIN  ?  (YES/NO) 
NO 


A 

.738 


B 

.SIB 


C  0 

.SS6  .758 


page  ) 
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APPENDIX  D  -  UPPP  FLOWCHART  AND  NARRATIVE 

UPPP,  the  User's  Preference  Package  Program,  creates  the 
User's  Preference  Package  (UPP)  file,  the  file  containing  the 
set  of  scenarios  and  their  associated  sets  of  parameter 
preference  ratings.  The  program  uses  the  HEADER  file, 
created  by  PPP,  to  present  the  parameters  to  the  user  and 
allow  the  user  to  rate  them,  and  then  incorporates  the  data 
into  a  revised  HEADER  file  and  a  file  named  UPP.  Appendix  D 
consists  of  a  general  flowchart  and  narrative  for  the  UPPP. 
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Chart  Number  1 

Moduit:  Name  USERS 


1.1  USERS  creates  tne  user's  preference  package, 

which  includes  scenarios  and  the  parameter  ratings  for 
these  scenarios. 

1.2-1. 3  Read  in  HEADER  file. 

1.4  Take  ooromand  from  user — CRTS,  LIST,  ADD,  or 

END. 


1.5-1. 6  If  ccnimand  is  END,  stop  execution. 

1.7-1. 8  If  conutiand  is  CRTE,  call  subroutine  CREATE. 

1.9-1.10  If  command  is  not  CRTE  and  ITERN  *  0 

(indicating  this  is  the  first  run  on  an  already-existing 
user's  preference  package),  call  READR2  to  read  in  the 
second  part  of  HEADER  and  UPP . 

1.11-1.12  Command  ADD  calls  subroutine  ADD  to  add 


scenarios . 

1.13-1.14  Command  LIST  causes  calling  of  subroutine 

LIST,  to  list  scenaric  >  and  their  associated  ratings. 

1.15  Read  next  command. 

1.16  Set  ITERN  =  1  to  indicate  command  sequence 
has  been  executed  at  least  once,  and  return  to  process 
new  command. 
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Chart  Number  1 . 3 
Module  Name  USERS 

1.3.1  READRl  reads  in  first  part  of  HEADER  file. 

1.3. 2-1. 3. 4  Rewind,  read  problem  size  and  names  of  sys¬ 

tems,  subsystems,  etc. 

1.3.5  Return  to  main. 


READ  IN 
NAMES 


Z 


return 


3 
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Chart  Nvunber  1 . 8 
Module  Name  USERS 

1.8.1  CReaTE  creates  a  User's  Preference  Package, 

adding  scenarios  and  ratings  to  the  problem. 

1.8. 2- 1.8. 3  Read  number  of  scenarios  and  their  names,  or 

descriptions. 

1.8.4  Write  out  to  new  HEADER  file  with  WRTR. 

1.8.5  Call  COMPAR  to  allow  user  to  enter  ratings. 

1.8.6  Return  to  main. 
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OF 

SCENARIOS 


Chart  Number  1.4 
Module  Name  USERS 

1. 8.4.1  WRTR  writes  HEADER'S  data  and  any  scenario 

data  to  file  IDUMl,  which  becomes  the  new  header  file. 

1.8. 4. 2- 1.8. 4. 3  Rewind  IDUMl  and  fill  with  HEADER  information. 
1 . 8 . 4 . 4  Return  to  ADD . 
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WRTR 


REWIND 

IDUMl 


WRITE 

HEADER  DAT; 
TO  IDUMl 


RETURN 


Chart  Number  1.8.5 
Module  Name  USERS 


1.8. 5.1  COMPAR  allows  entering  of  ratings,  and 

writes  them  to  UPP  file. 

1.8. 5. 2  User  is  asked  if  he  wishes  to  skip  the 

paired  comparison. 

1.8. 5. 3  Parameters  are  presented  in  pairs;  user 

picks  most  important. 

1.8. 5. 4  LARGE  puts  parameters  in  order  after  they 
are  compared,  from  most-chosen  to  least. 

1.8. 5. 5  The  parameters  are  presented  in  descending 
importance  order. 

1 . 8 . 5 . 6-1 . 8 . 4 . 7  User  enters  ratings  and  they  are  written  to 
the  UPP  file. 

1.8. 5. 8  Return  to  subroutine  CREATE. 
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RETUW4 


Chart  Number  1.8. 5. 4 
Module  Name  USERS 


1.8. 5. 4.1  LARGE  sorts  parameters  by  numbers  of  times 
chosen  in  the  paired  comparison  and  saves  the  sort  order 
by  saving  the  subscripts  of  the  array  elements  in 
another  array. 

1.8. 5. 4. 2  Determine  order  by  a  comparison  sort,  com¬ 
paring  current  element  to  relative  maximum. 

1.8. 5. 4. 3  Save  sort  order,  not  by  changing  elements 
themselves  but  by  saving  the  subscripts  in  array  lORDER. 

1.8. 5. 4. 4  Return  to  COMPAR. 
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1.8. 5. 4 


Chart  Number  1.10 
Module  Name  USERS 


1.10.1  READR2  reads  the  second  part  of  HEADER  and 

the  UPP  file;  used  as  a  result  of  executing  USERS  to  ADD 
to  or  LIST  an  already-existing  user's  preference 

package . 

1.10.2  Read  NSCEN,  the  number  of  scenarios,  from 
HEADER  file. 

1.10.3  Read  scenario  descriptions  from  HEADER. 

1.10.4  Read  in  ratings  from  UPP  file. 

1.10.5  Return  to  main. 


Chart  Number  1.12 
Module  Name  USERS 


1.12.1  ADO  is  called  when  the  users  wish  to  add 

more  scenarios  to  the  problem. 

1.12.2-1.12.3  Read  number  of  scenarios  to  add  and  their 
descriptions,  or  names. 

1.12.4  Call  WRTR  to  write  this  new  information  in 
the  HEADER  file.  See  Chart  1.8.4  for  further  documentation. 

1.12.5  Call  COMPAR  to  allow  user  to  enter  ratings. 
See  Chart  1.8.4  for  further  documentation. 

Return  to  main  program. 
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Chart  Number  1.14 
Module  Name  USERS 


1.14.1  LIST  lists  out  the  user's  preference  pack¬ 
age,  scenarios,  ratings,  and  average  ratings  for  each 
parameter. 

1.14.2  Calculate  average  parameter  ratings  over  all 
scenarios. 

1.14.3-1.14.4  List  out  ratings,  for  each  scenario  as  well 
as  averaged  ratings  for  all  scenarios. 

1.14.5  Return  to  main. 


APPENDIX  E  -  PPP  FLOWCHART  AND  NARRATIVE 


PPP,  the  Parameter  Package  Program,  creates  the  Parameter 
Package,  which  consists  of  the  PP  and  HEADER  data  files.  The 
HEADER  file  contains  the  size  of  the  problem  and  the  names 
given  to  the  various  entities  in  the  problem,  such  as  the 
systems,  subsystems,  parameters,  etc.  The  PP  file  contains 
numerical  values  for  the  parameters,  either  coded  qualitative 
values  (1  meaning  yes,  2  meaning  no)  or  actual  numerical  data 
(6875  gallons  of  fuel  usage  per  year).  PPP  is  the  first 
program  in  the  series  comprising  the  model,  and  Appendix  E 
consists  of  a  general  flowchart  and  narrative  for  the 
program. 
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PHBCEOlJNa  BUM  ILMIK-liOT  niiO 


Chart  No.  1 

Module  Name  PPP 


(1)  Pareuneter  Package  Program 

This  module  reads  the  user's  command  and  calls  the  appropri¬ 
ate  subroutines. 

.1  PAGER  clears  screen  on  TEKTRONIX  terminal,  returns  cur¬ 

sor  to  home. 

.2  Print  instructions,  list  and  describe  commands. 

.3  Read  in  lANSR  command  string. 

.4  End  program  if  "END"  is  typed. 

.5-. 6  Create  new  HEADER  file  with  subroutine  CREATE  if  "CRTE". 

.7-. 8  Rewind  and  read  in  HEADER. 

.9-. 10  Create  PP  file  if  "MNlN"  is  typed  in  using  subroutine 
MANUAL. 

11-.12  If  "LIST"  IS  typed,  call  LIST  to  output  HEADER  and  PP. 

13  Read  in  new  command  and  return. 
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Chart  No.  1.1 

Module  Name  PAGER 


(1.1)  TEKTRONIX  PAGER 

This  module  contains  TEKTRONIX  subroutine  calls  that  clears 
the  screen  and  returns  the  cursor  to  home. 


.  1-.2 

Subroutine 

INITT, 

.3 

Subroutine 

NEWPAG 

.4 

Subroutine 

FIN ITT 

> 

! 
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Chart  No.  1.6 

Module  Name  CREATE 


(1.6)  CREATES  the  HEADER  file 

This  module  creates  the  HEADER  file. 

.1  Read  in  all  system  and  parameter  names,  parameter  types 

number  of  levels. 

.2  Rewind  file. 

.3  Write  names,  etc.  to  file. 
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Chart  No .  1.1.8 

Module  Ncime  READRl 


(1.8  )  READ  in  HEADER 

This  module  reads  in  the  data  file  HEADER. 

1  Rewind  the  file. 

2  Read  in  all  names,  numbers,  parameter  types. 

3-. 4  If  no  level  1  subsystems,  INDEX=1. 

5-. 6  If  no  level  2  subsystems,  INDEX=number  of  level  1  siab- 

sys terns . 

7  Otherwise,  INDEX=product  of  numbers  of  level  1  and  2 

subsystems . 
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INDEX  = 
NSUBl 

“  I 


INDEX 
NSUBl  * 
NSUB2 


Chart  No.  1.10 

Module  Name  MANUAL 


(1.10)  MANUALy  enter  the  PP 

:nie  module  allows  the  user  to  enter  in  the  parameter  values.  I 

.1  Rewind  PP  file. 

.2  SYSDSN  indicates  the  correct  branching. 

.3-. 4  Parameters  entered  and  written  to  file  for  systems  only. 

.5-. 6  Parameters  are  entered  and  written  to  file  for  systems 

and  subsystems. 

.7-. 8  Parameters  are  entered  and  written  to  file  for  systems 
and  level  1  and  2  subsystems. 
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Chc*rt  No.  1.12 
Module  Name  LIST 


(1.12)  LIST  the  parameter  names  and  values 

This  module  prints  a  table  containing  the  parameter  names  and 

values. 

. 1  Rewind  PP . 

.2  SYSOSN  indicates  the  correct  branching. 

.3-. 5  For  systems,  with  PAGER  and  write  out  parameter  names 
WRTOUT  outputs  system  names  and  parameter  values. 

.6-. 8  For  systems  and  level  1  subsystems  page  with  PAGER  and 
write  out  parameter  names.  WRTOUT  outputs  system  and  sub¬ 
system  names  and  pareuneter  values. 

.9-. 11  For  systems  emd  level  1  and  2  subsystems,  page  with 

PAGER  and  write  out  parameter  names.  WRTOUT  output  systems 
and  svibsystem  names  and  parameters  values. 
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REWIND 

PP 


Chart  No.  1.12.5 
Mdoule  Name  WRTOUT 


(1.12.5)  WriTeOUT  the  parameter  values 

This  module  outputs  the  system  and  subsystems  names  and  para¬ 
meter  values. 

.1  Print  names 

.2  Print  parameter  values  corresponding  to  names. 
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APPENDIX  F  -  GRAPHX  AND  GRAPHT  FLOWCHART  AND  NARRATIVE 

GRAPHX  and  GRAPHT,  the  two  graphics  programs  for  the 
system  selection  model,  provide  both  histogram  and  data-point 
graphical  output.  GRAPHX  creates  graphs  that  plot  system 
values  versus  systems  in  a  vertical  histogram  format,  and 
GRAPHT  creates  graphs  of  system  values  versus  time,  to  demon¬ 
strate  effects  of  time-variant  parameters  on  the  decision 
results.  The  time  intervals  must  be  input  to  the  system  as 
the  lowest-level  subsystem,  and  the  problem  must  of  course  be 
Case  1  or  2  to  accommodate  this  requirement.  The  "time 
graphs,"  as  they  are  referred  to,  contain  one.  curve  per 
system  on  each  graph.  The  following  set  of  flowcharts  and 
narratives  describe  the  general  structure  of  the  programs; 
however,  it  is  recommended  that  those  who  wish  to  really 
understand  the  programs  refer  to  the  Tektronix  manuals 
referenced  in  the  narratives. 
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PhECSOlNG  PASS  BLANK -MOT  FILMB) 


Chart  Nximber  1 

Module  Name  GRAPHT 


1. 1  Program  GRAPHT  graphs  system  values  against 
time  at  specified  intervals,  with  a  separate  curve  for 
each  system.  Time  intervals  must  be  specified  in  either 
level  1  or  level  2  subsystems,  and  must  be  five  in 
number. 

1.2  Rewind  HEADER,  containing  names  and  numbers, 
and  SYSNUM,  containing  final  system  rating  values. 

1.3  Read  in  HEADER  via  program  READR. 

1.4  Read  SYSNUM  values  into  array  SYSNRM. 

1.5  Obtain  frm  user  IBAUD  and  JTERM,  baud  rate 

and  terminal  type  used  by  PLOT-10  initialization 

routines. 

1.6  Problem  must  be  Case  2  or  Case  3,  and  must 
have  exactly  five  lowest  level  subsystems.  (Error  mes¬ 
sage  if  conditions  are  not  satisfied.) 

1.7-1. 9  Call  appropriate  overlay  to  make  graph. 
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GRAPHT 


REWIND 

HEADER 

SYSNUM 


READER 


READ  IN 
HEADER 


CHECK 

PROBLEM 
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1.3.1 

INDEX. 

1.3.2 

1.3. 3-1. 3. 7 


Chart  Number  1 . 3 
Module  Name  GSAPHT 


Program  REAOR  reads  in  HEADER  data,  figures 
Read  in  data. 

INDEX  calculated,  based  on  problem  type: 

Case  1— INDEX  «  1 

Case  2 — INDEX  »  NSUBl 

Case  3— INDEX  *  NSUBl *NSUB2 


!< 

li 
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Chart  Number  1.8 
Module  Name  GRAPHT 


1.8.1  Program  GRAF2  creates  one  graph  of  Case  2 

data. 

1.8. 2-1. 8. 4  TEKTRONIX  PLOT-10  software  subroutines;  for 

more  Information  on  these  and  their  operation,  see 
TEKTRONIX  manuals  for  Terminal  Control  System  (TCS)  and 
Advanced  Graphics  (AG-II) ,  part  numbers  062-1474-00  and 
062-1530-00,  respectively. 

1.8.5  TINPDT  waits  for  any  key  followed  by  an  ETX, 

then  continues;  used  as  delay  for  examination /hard- 
copying  of  graph. 


Chart  Number  1 . 9 
Module  Name  GRAPHT 


9.1  Program  GRAF3  creates  (NSUBl)  graphs  of  the 

Case  3  data. 

9.2>1.9.2.S  Subroutines  to  draw,  label,  adjust  graph. 
9.6  TINPUT  delays,  waiting  for  character  and 

ETX  input. 
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Chart  Number  1 

Module  Name  GRAPHX 


1.1 

1.2 

1.3 

1.4 

1.5 

1.6 

1.7- 

1.11 


Program  GRAPHX  does  a  bar  graph  output  of 
the  results  fron  SSMP. 

Rewind  data  files.  HEADER  contains  size  and 
names  for  problem,  SYSNUM  contains  system  rating  values 
(from  SSMP)  . 

Read  initialization  parameters  (baud  rate 
and  terminal  type)  from  user.  This  is  necessary  for 
TEXTRONIX  PLOT- 10  software  routines. 

Read  in  HEADER  via  program  READR. 

Read  in  SYSNUM  data  into  SYSNRM  array. 

Assign  x-values  in  linear  expansion  form 
(see  PLOT-IO  manuals) . 

.10  Go  to  appropriate  program,  according  to 

value  of  SYSDSN. 

Stop  execution. 
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Chart  Number  1 . 4 
Module  Name  GRAPHX 

Program  READR  reads  in  HEADER  data. 

Read  in  values  from  file  HEADER. 

-1.4.7  Assign  value  to  INDEX  according  to  size  of 

problem  as  follows: 

Case  1 — INDEX  =  1 
Case  2 — INDEX  =  NSUBl 
Case  3 — INDEX  =  NSUB1*NSUB2 
Terminate . 
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Chart  Number  1 . 8 
Module  Name  GRAPHX 


1.8.1  Program  GRAFl  graphs  Case  1  data;  creates 

one  graph. 

1.8. 2- 1.8. 4  Assign  y-values  for  graph  from  SYSNUM  data 

(in  array  SYSNRM) . 

1.8.5  Initialize  PLOT- 10  software  system. 

1.8. 6-1. 8. 7  All  routines  for  drawing,  labeling,  and 

titling  graphs,  as  well  as  certain  parameters  to  set 
special  features  of  graphs.  For  more  information,  see 
TEKTRONIX  manuals  for  Te^inal  Control  System  (TCS)  and 
Advanced  Graphics  (AG-II) ,  part  numbers  062-1474-00  and 
062-1530-00,  respectively. 

1.8.8  TINPUT  waits  for  user  input;  any  keystroke 

and  ENTER  will  cause  the  program  to  continue. 

1.8.9-1.8.10  Exit  PLOT-10  and  terminate. 
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Chart  Number  1 . 9 
Module  Name  GRAPHX 

1.9.1  Prograiffl  GRAF2  graphs  Case  2  data  and  creates 
NSUBl  graphs. 

1.9.2  Do~loop  to  create  graphs/  number  ®  number  of 
level  1  subsystems. 

1.9. 3-1. 9. 7  Assign  y- values,  initialize  system,  graph, 

wait  for  input  to  do  next  graphs. 

1.9. 8-1. 9. 9  Exit  PLOT-10  and  terminate. 
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Chart  Number  1.10 
Module  Name  GRAPHX 


1.10.1  Program  GRAF3.  This  graphs  Case  3  data, 

creates  NSUB1*NSUB2  graphs. 

1.10.2-1.10.8  Do  graphs,  wait  for  input  to  clear  and  do 
another. 

1.10.9-1.10.10  Exit  PLOT-10  and  terminate. 


210 


APPENDIX  G  -  SSMP  FLOWCHART  AND  NARRATIVE 


SSNP/  the  System  Selection  Model  Program^  is  the  final 
step  in  executing  the  decision  model.  SSMP  takes  the  thxee 
data  files  created  by  PPP  and  UPPP  and  integrates  them  into 
the  problem,  asks  the  user  how  the  decision  should  be  limited 
and  output,  and  then  performs  the  calculations  and  manipula¬ 
tions  to  eliminate  and  rate  each  system.  This  appendix 
contains  a  general  flowchart  and  explanatory  narrative  of 
SSMP. 
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:-iior  nii» 


(1)  System  Selection  Model 


Chart  No .  1 

Module  Name  SSM 


1  Reads  in  Parameter  Package  (PP)  and  calls  RUPP  that  Reads  in 
User's  Preference  Packag  (UPP) . 

2  Allows  the  user  to  select  a  scenario  to  enter  parameter 
ratings . 

3  Prints  out  the  parameter  ratings. 

4  Allows  the  user  to  select  the  parameters  to  be  in  the  decision 
process. 

5  Eliminates  parameter  data  as  specified  by  parameter  limits 
and  calls  TABLE  to  print  out  eliminated  system  and/or  sub¬ 
system. 

6  If  the  numerical  parameters  chosen  need  inverting  then  this 
model  performs  the  necessary  calculations. 

7  Calculates  the  utility  values  for  each  system  and  calls  OUTPUT 
to  print  out  the  results. 

8  Allows  the  user  to  execute  the  program  again.  This  option  can 
be  used  to  an  analysis  of  the  uncertainity  of  the  decision 
model. 
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(1.1)  Read  in  Parameter  Package 


Chart  No.  1.1 
Module  Name  RPP 


This  procedure  reads  in  the  Parameter  Package  (PP)  from  the 

data  file  HEADER  and  stores  the  information  in  labeled  COMMON 

statements. 

.1  Read  DBNAME,  the  problem  name  for  the  data  bases. 

.2  Read  SYSDSN;  l«Case  1  (no  subsystems);  2»Case  2  (level  1  sub¬ 
systems);  3>Case  3  (level  1  and  2  subsystems). 

.3  Read  in  NSYS,  NSUB2  and  NPARM. 

.4  Read  in  the  setnames  for  the  systems  and,  if  any,  subsystems. 

.5  Read  in  the  specific  names  for  the  systems  and,  if  any,  level 
1  and  2  subsystems. 

.6  Read  in  par«uneter  names  and  the  values  indicating  the  type  of 
parameter  and  if  it  is  to  be  inverted.  The  value  of  1  means 
YES,  and  0  means  NO. 

.7  INDEX  is  calculated  to  help  facilitate  the  indexing  of  arrays. 
Since  there  is  a  maximum  of  3  dimensional  arrays,  a  fourth 
dimension  is  combined  with  another  dimension  for  Case  3. 

.9  The  RUPP  module  reads  in  the  UPP  data  file. 
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(1.1.8)  Read  in  User's  Preference  Package 


Chart  No .  1.1.8 

Module  Name  RUPP 


This  module  reads  in  the  data  file  called  user's  preference 
package  from  the  file  called  UPP  and  stores  the  information  in 
labeled  COMMON  statements. 

.1  Read  in  the  number  of  scenarios  available,  NSCEN. 

.2~.3  Check  to  see  if  NSCEN  is  greater  than  zero,  if  not,  print 
an  error  message. 

.4-. 5  Read  in  the  scenario  description,  SCNDSC,  with  an  alpha¬ 
numeric  format  of  15A4  giving  a  limit  of  60  characters. 


218 


Cha-t  No.  1.2 

Mo'  le  Name  SCN'^r^ 

(1.2)  SCeNario  SELection 


.1-.2  Print  out  the  available  parameters. 

.3  The  user  chooses  between  entering  his  or  her  own  ratings  or 
the  ratings  available  under  the  different  scenarios. 

.4  Set  the  variable  that  indicates  the  choice  of  scenario  to  1. 

.5  Read  in  the  scenario  description,  SCNDSC,  maximxim  60  characters. 

.6  Print  out  each  parameter  and  then  read  in  a  corresponding 
parameter  rating. 

.  7  Check  each  parameter  rating  to  see  if  exceed  its  ranges . 

.8  If  the  rating  is  not  a  correct  value  an  error  message  is 
printed. 

.9  The  ratings  are  stored  in* another  array  for  future  use. 

10  If  the  user  decides  to  use  an  available  scenario,  the  program 
prints  out  the  descriptions  of  available  scenarios. 

11  The  user  indicates  his  or  her  choice  of  a  scenario  by  an 
integer  variable  ICHOIC. 

12  Check  to  see  if  ICHOIC  does  not  exceed  any  ranges. 

13  If  ICHOIC  is  incorrect  the  program  prints  an  error  message. 

14  Calculate  INDEXl  to  help  facilitate  file  indexing. 

15  After  positioning  the  UPP  data  file  to  the  correct  scenario 
then  read  in  that  scenario's  ratings. 


RTING  (L) 
RATING  (L) 


POSITION 
FILE  &  READ 
RATINGS 


Chart  No .  1.3 

Module  Name  RATOUT 

(1.3)  RATings  OUTput 

This  module  prints  out  the  parameters  ratings  that  either 
been  entered  by  the  user  or  from  the  scenario  that  has  been 
chosen. 

.1  Print  the  60  character  scenario  description,  SCNDSC. 

.2-. 3  Print  the  parameter  name  and  rating. 

.4  Finish  printing  the  box. 

.5  The  module  returns  to  the  main  overlay. 
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(1.4)  PARameter  SELection 


Chart  No .  1.4 

Module  Name  PARSEL 


This  module  allows  the  user  to  select  the  parameters  and 

limits  that  will  be  used  to  participate  in  the  decision  process. 

.1  Initialize  several  variables. 

.2  Read  the  user's  number  of  parameters  wanted  in  the  decision 
process. 

.3  Then  read  in  the  choice  of  parameters,  CHPRM. 

.4-. 5  Query  the  user  to  find  out  if  any  parameter  limits  are  to 
be  applied. 

.6  Check  to  see  of  the  parameter  is  numerical. 

.7  Check  to  see  if  parameter  is  limited  from  above,  below  or  both. 

.8  Read,  IRNG,  if: 

.9  1,  then  the  program  reads  the  lower  limits,  RLOWR. 

10  2,  then  the  program  reads  the  higher  limit,  HIR. 

11  3,  then  the  program  reads  both,  the  higher  and  lower  limits. 

12  If  the  parameter  is  not  numerical  then  check  and  see  if  it  is 
rated. 

13  Read  the  integer  number  (1-5)  that  will  limit  to  the  rated 
parameter  to  either,  excellent,  good,  fair,  poor,  or  very 
poor. 

14-.15  If  the  parameter  is  not  either  numerical  or  rated  it  is 
then  considered  a  qualatative  and  a  message  prints  out. 
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INITIALIZE 

VARIABLES 


(1.5)  ELIMlNation  of  Systems/Subsystems 


This  module  eliminates  systems/subsystems  based  on  parameter 

limits.  For  more  information  see  Appendix  7.3. 

.1  Initialize  the  ELIM  array  to  zero  and  the  MATRIX  array  to  one. 

.2  Set  up  do-loop  for  all  parcuneters. 

.3  Set  up  do-loop  for  chosen  parameters. 

.4  Check  to  see  if  current  parameter  is  a  chosen  parameter. 

.5  If  a  chosen  parameter  then  read  in  parameter  data  from  PP  data 
file. 

.6-. 7  Check  to  see  if  a  numerical  parameter  and  check  range. 

.8  If  If  then  perform  elimination  process  for  parameter  limited 
from  above. 

.9  If  2,  then  perform  elimination  process  for  parameter  limited 
from  be low ^ 

10  If  3/  than  perform  elimination  processs  for  parameter  limited 
from  above  and  below. 

11  If  not  a  numerical  parameter  then  check  to  see  if  a  rated 
parameter . 

12  If  a  rated  par^uneter  then  perform  elimination  process. 

13  Check  to  see  if  a  qualitative  parameter. 

14  Then  the  elimination  process  is  performed. 

15  After  the  elimination  process  is  finished  then  the  data  file 
is  indexed  to  next  parameter. 

16  If  systems/subsystems  have  been  eliminated  then  all  of  the 
parameter  data  for  these  systems  or  subsystems  must  also  be 
eliminated. 

17  After  all  of  the  parameters  have  been  checked  then  test  to  see 
if  any  system  or  subsystems  have  been  eliminated.  If  nothing 
has  been  eliminated  then  the  program  module  ends. 

18  If  a  system/ subsystem  has  been  eliminated  then  check  to  see  if 
all  systems  and  subsystems  have  been  eliminated. 

19  If  yeSf  then  print  message  indicated  that  the  parameter  limits 
were  such  that  no  system/ subsystem  qualified. 

20  Write  page  title  for  output. 

21  Call  program  module  TABLE  that  prints  the  elimination  table. 
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Chart  No.  1.5.21 
Module  Name  TABLE 

(1.5.21)  Elimination  TABLE 

This  module  prints  out  a  table  containing  the  reasons  why  a 
system  or  a  subsystem  was  eliminated  from  the  decision  model. 

.1  Print  title. 

.2  Check  to  see  if  Case  1,  2,  or  3. 

.3  Print  heading  for  Case  1. 

.4  Find  out  which  parameters  are  eliminated. 

.5  After  a  certain  number  of  lines  are  printed  out  the  output 
is  started  on  a  new  page. 

.6  Print  out  reason  for  elimination. 

.7  Print  heading  for  Case  2. 

.8  Find  out  which  parameters  are  eliminated. 

.9  After  a  certain  number  of  lines  are  printed  out  the  output 
is  started  on  a  new  page. 

.10  Print  out  reason  for  elimination. 

.11  Print  heading  for  Case  3. 

.12  Find  out  which  parameters  are  eliminated. 

.13  After  a  certain  number  of  lines  are  printed  out  the  output  is 
started  on  a  new  page. 

.14  Print  out  reason  for  elimination. 


Chart  No.  1.6 

Module  Name  INVRT 

(1.6)  iNVeRT  the  Parameter  Data 

This  module  inverts  indicated  parameter  data.  The  parameter 
data  must  be  such  that  the  lowest  value  of  the  pareuneter  data  is 
the  "best"  data. 

.1  Rewind  PP  and  VPARM  files. 

.2  Initialize  VPARAM  array  to  zero. 

.3  Set  up  do- loop. 

.4  Test  to  see  if  INVERT  is  zero. 

.5  If  no,  then  set  up  do-loop. 

.6  Read  in  a  line  of  parameter  data  from  the  data  file. 

.7  Set  up  do-loop  to  check  data  for  every  system. 

.8  Initialize  BIG  to  zero. 

.9-. 11  Find  the  largest  value  among  the  system  or  subsystems 
for  that  parameter. 

12  Set  up  do- loop. 

13  If  the  parameter  data  equals  zero  it  is  considered  blank  and 
skips  over  calculation. 

14  The  parameter  data  is  inverted  by  dividing  the  largest  value 
by  each  system's  or  subsystem's  parameter  data. 

15  After  the  data  has  been  inverted  then  write  the  data  out  on 
to  the  VPARM  data  file. 

16-.18  If  the  parameter  data  for  that  parameter  is  not  to  be 
inverted  then  write  out  the  parameter  data  to  the  VPARM 
data  file. 
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Chart  No.  1.7 

Module  Name  UTILT 

(1.7)  Calculate  the  UTILiTy  values 

This  module  determines  the  best  system  or  subsystem  based  on 
the  highest  utility  value.  See  Appendix  7.3  for  more  information. 

.1  The  RATING  values  are  normalized. 

.2-. 3  Read  in  parameter  values  from  file  VPARM. 

.4-. 8  Eliminate  parameter  data  systems  that  have  been  elimi¬ 
nated. 

.9-. 10  Determine  the  smallest  parameter  value  for  each  para¬ 
meter  between  the  systems  or  subsystems. 

.11-. 12  Determine  the  biggest  parameter  value  for  each  parameter 
between  the  systems  or  subsystems. 

.13-.  14  If  any  parameter  data  is  equal  to  zero  skip  over  calcu¬ 
lations. 

.15-. 18  Calculate  the  utility  value  using  the  largest  and  small¬ 
est  value. 

.19  Calculate  the  rated  utility  value  using  the  RATING  value. 

.20  Add  the  rated  utility  values  for  each  system  or  subsystem. 

.21  Print  headings. 

.22-. 23  Call  overlay  containing  module  OUTPUT  that  prints  table. 

.  24  Write  system  values  out  on  file  SYSNUM. 
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Chart  No.  1.7.23 
Module  Name  OUTPUT 


(1.7.23)  Tabular  OUTPUT 

This  module  prints  the  system  values  calculated  from  the 
utility  values  that  determines  the  "best"  system  or  subsystem. 

.1  Print  headings. 

.2  SYSDSN  indicates  how  the  problem  is  structured  (Case). 

.3-. 4  Print  tcUale. 

.5-. 6  Print  table. 

.7  After  a  number  of  lines  start  a  new  page. 

.8-. 9  Print  table. 

.10  After  a  number  of  lines  start  a  new  page. 
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1.7.23 


Chart  No.  1.7.23.4 
Module  Name  WRTE 


(1.7.23.4)  WRITE  out  system  values 

This  module  contains  the  write  and  format  statements  for  the 
utility  table. 

.  1  Choose  appropriate  write  2uid  format  statement  dependent 

on  the  number  of  systems/  NSYS. 

.2  Print  heading. 

.3  Print  the  normalized  system  values,  SYSNRM  and  the  opti¬ 

mum  system. 
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Chart  No. 
Module  Name 


1.8 

ANLYS 


(1.8)  ANaLYSis 

This  module  allows  the  user  to  execute  the  program  over  and 
over  again,  this  is  useful  if  one  is  performing  an  uncertainty 
analysis. 

.1  Set  lEXEC  to  zero. 

. 2  Ask  the  user  if  he  or  she  wishes  to  execute  the  program 

again. 

.  3 


.4 


If  yes,  then  set  lEXEC  to  zero. 
Return  to  the  main  overlay. 
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APPENDIX  I  GLOSSARY 


This  is  a  listing  vrtiich  contains  the  names  of  program 
modules r  variables,  constants,  and  any  special  terms  used  in 
this  document. 

ABV  The  array  that  contains  the  upper  limit  for  the 

parameter  value. 

AVE  A  variable  that  indicates  the  average  value  of  the 

ratings  according  to  scenario. 

BELW  The  array  that  contains  the  lower  limit  for  the 

parameter  value. 

BIG  Indicates  the  biggest  value. 

CHPRM  The  integer  array  that  contains  the  chosen  param¬ 

eters. 

DBNAME  Data  base  neune;  an  integer  array  that  contains  the 
alphanumeric  name  of  the  PP  data  base. 

ELIM  The  array  that  contains  the  parameter  numbers  that 
are  to  be  eliminated. 

HIR  The  array  that  contains  the  higher  limit  for  the 

parameter  value 

lADD  An  integer  variable  that  is  used  as  a  command  to 

indicate  the  add  mode. 

lANSR  The  integer  variable  that  indicates  a  yes  or  no 
answer. 

IBAUD  The  integer  value  indicating  the  baud  rate  to  the 
TEKTRONIX  PLOT- 10  software. 

IBLANK  An  integer  value  that  contains  the  blank  character. 

ICHAR  An  integer  value  that  contains  alphanumeric  charac¬ 

ters. 

ICHARA  An  integer  value  that  contains  the  alphanumeric 

character  "A" . 

ICHARB  An  integer  value  that  contains  the  alphanumeric 

character  "B". 
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ICHOIC  The  integer  value  that  indicates  the  choice  of 
scenario. 

ICOUNT  The  integer  variable  that  counts  the  number  of  times 
the  pareuneter  is  chosen. 

ICNT  The  integer  variable  that  counts  the  number  of  times 
the  pareuneter  is  chosen. 

ICRTE  Integer  variable  that  is  used  as  a  command  to  indi¬ 
cate  the  create  mode. 

IDUMl  An  integer  unit  number  for  I/O  for  the  file  DUMl. 

IDUM2  An  integer  unit  number  for  I/O  for  the  file  DUM2. 

lEND  An  integer  variable  that  is  used  as  a  command  to 

indicate  the  end  of  the  prograim. 

lEXEC  An  integer  variable  that  indicates  whether  or  not 
the  program  should  execute  again. 

IHDR  An  integer  unit  number  for  I/O  for  the  file  HEADER. 

ILIST  An  integer  variable  that  is  used  as  a  command  to 

indicate  the  list  mode. 

IMNIN  The  integer  variable  that  is  used  as  a  command  to 
indicate  the  manual  input  of  the  data. 

INDEX  An  integer  value  used  in  INDEX  arrays.  If 

SYSDSN=1,  INDEX=1;  if  SYSDSN»2,  INDEX=NSUB1;  if  SYSDSN=3, 
INDEX=NSUB 1 *NSUB  2 . 

INDEXl  The  integer  value  for  indexing. 

INDICE  The  integer  value  that  holds  the  value  for  an  in¬ 
dice. 

INO  An  integer  value  that  contains  the  character  no. 

INVERT  The  inverted  parameter  indicator  which  is  a 

binary  1,  if  the  parameter  is  to  be  inverted;  0,  if  not. 

lOPT  An  integer  value  that  indicates  which  optimal  system 
has  been  chosen. 

IPP  An  integer  unit  number  for  I/O  for  the  file  PP. 

IPPH  An  integer  unit  number  for  I/O  for  the  PP  part  of 

the  file  HEADER. 
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IQUALT  An  integer  array  that  contains  the  alphanumeric 
names  for  the  rated  parameters. 

IRANGE  The  integer  array  that  contains  the  chosen  ratings 
for  the  rated  parameter. 

IRNG  An  integer  value  that  indicates  if  range  of  elimina¬ 
tion  is  above,  below,  or  in  between  the  parameter. 

ISCEN  The  integer  variable  that  indicates  the  number  of 
scenarios. 

ISWNO  An  integer  array  that  contains  a  1  if  the  parameter 
has  no  limits  and  0  if  it  does  have  limits. 

ISYS  An  integer  unit  number  for  I/O  for  the  SYSNAM  file. 

ITTYIN  An  integer  unit  number  for  the  terminal  input. 

ITYOUT  An  integer  unit  number  for  the  terminal  output. 

lUPP  An  integer  unit  number  for  I/O  for  the  file  UPP. 

lUPPH  An  integer  unit  number  for  I/O  for  the  UPP  part  of 
the  file  HEADER. 

IVBIN  An  integer  value  to  test  if  the  parameter  has  al¬ 
ready  been  eliminated. 

rvPARM  An  integer  unit  number  for  I/O  for  the  VPARAM  file. 

lYES  An  integer  value  that  contains  the  character  yes. 

JTERM  An  integer  value  signifying  terminal  type  to  the 

TEKTRONIX  PLOT- 10  software. 

LINE  The  integer  variable  that  counts  the  number  of  lines 
of  output. 

MATRIX  The  array  that  contains  0  and  1  values.  A  0  value 

indicates  that  a  parameter  is  to  be  eliminated.  It  is  used 

to  multiply  the  PARAM  array. 

NCALL  The  integer  value  that  indicates  the  value  for  the 
indice  vAien  new  scenarios  are  to  be  added. 

NOLD  An  integer  value  that  indicates  the  value  for  the 

indice  when  new  scenarios  are  to  be  added. 

NOPRM  The  number  of  parameters  chosen  to  participate  in 

the  decision  process. 

NPAGE  The  integer  value  that  contains  the  number  of  pages. 
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NPARM  Number  of  parameters;  an  integer  value  that  indi¬ 
cates  the  number  of  parameters. 

NSCEN  Number  of  scenarios;  an  integer  value  that  indi¬ 

cates  the  number  of  scenarios. 

NSUBl  Number  of  subsystems  level  1;  an  integer  value  that 
indicates  the  number  of  level  1  subsystems. 

NSUB2  Number  of  subsystems  level  2;  an  integer  value  that 
indicates  the  largest  number  of  level  2  subsystems  for  each 
level  1  subsystem. 

NSYS  Number  of  systems;  an  integer  value  that  shows  the 
number  of  systems. 

NUM  Numerical  parameter  which  is  given  a  binary  value 

of  1,  if  numerical  parameter;  0,  if  not. 

PARNAM  Parameter  names;  an  integer  array  that  contains  the 
alphanumeric  names  of  the  parameters. 

PAVE  The  array  of  the  averages  of  the  ratings. 

PSUM  A  variable  used  to  sum  up  the  rating  values  for 

each  parameter. 

RATED  Rated  parameter;  binary-defined  as  1  if  rated  param¬ 
eter;  0,  if  not. 

RATING  Ratings;  an  array  that  contains  the  user's  ratings. 
RCALL  The  real  value  of  NCALL. 

RLOWR  The  array  that  contains  the  lower  limit  for  the 

parameter  value. 

RSCEN  Real  number  of  scenarios;  the  real  value  of  NSCEN. 

RTD  The  array  that  contains  the  chosen  ratings  for  the 

rated  parameter. 

RTING  Common  block  label. 

SBISET  Subsystem  level  1  setname;  an  integer  array  that 

contains  the  setname  of  the  subsystem  level  1  setname. 

SB2SET  Subsystem  level  2  setname;  an  integer  array  that 

contains  the  setname  of  the  subsystem  level  2  setname. 

SCNDSC  Scenario  descriptions;  an  integer  array  that  con¬ 

tains  the  alphanumeric  names  of  the  scenarios. 
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SMALL  Indicates  the  smallest  value. 

SUBINM  Subsystem  level  1  naMs;  an  integer  array  that  con¬ 
tains  the  alphanumeric  names  of  the  level  1  svibsy stems. 

SUB2NM  Subsystem  level  2  names;  an  integer  array  that  con¬ 
tains  the  alphanumeric  names  of  the  level  2  subsystems. 

SUM  An  array  used  to  sum  up  the  ratings  by  scenarios. 

SUMM  Used  to  sum  rating  values. 

SWl  A  Boolean  variable. 

SW2  A  Boolean  variable. 

SYSDSN  System  design  indicator;  an  integer  value  that  indi¬ 
cates  the  description  of  the  problem. 

1 —  indicates  systems  to  be  included. 

2 —  indicates  systems  and  level  1  subsystems. 

3 —  indicates  systems  and  levels  1  and  2  subsystems. 

SYSNAM  System  names;  an  integer  array  containing  the  alpha¬ 
numeric  ncunes  of  the  systems. 

SYSNRM  System  values  normalized;  an  array  that  contains  the 
normalized  system  values  that  indicated  the  relative  optimal 
system. 

SYSSET  System  setname;  an  integer  array  containing  the  set- 
name  of  the  systems. 

VPARAM  The  array  that  contains  the  inverted  parameters. 

UTIL  The  array  that  contains  the  utility  values  for  the 
systems  and  subsystems. 

YN  Qualitative  parameter  indicator;  a  binary  1  indi¬ 

cates,  yes,  the  system  or  subsystems  have  that  quality;  a 
binary  0  indicates,  no,  the  cpiality  is  not  present. 


248 


PROCEDURE  FILE  PPROCl 


.PROCfPPPPtFHOR fFPP. 

REQUEST, FHCP,*PF. 

REQUEST, FPP,*PF. 

ATTACH,TEKl.TB,TEKLie,SN  =  ASD,  I0=LI8RARY,CYr999. 
library, TEKLIB. 

ATTACH, PPP,PPP,CYrl. 

PPP. 

REwiNC, header. 

RE*IN0,PP. 

COPY, HEADER, FHOR. 

COPY  ,PP,FPP. 

RETURN,HEADER,PP,PPP,TEKL18. 


PROCEDURE  FILE  PPROC2 


.PR0C,PPpP,rH0R,CYl,FPP,CY2. 

ATTaCH,HE4DER»FH0P,CY=CY1. 

AfTACH,PP,FPP,CY=CY2. 

ATTACH, PPP,PPP,CY:1. 

PPP , 

RETURN, PPP  ,PP,HEA0ER. 


PROCEDURE  FILE  UPROCl 

.PROC.UPPPP.OLU’  CYl,0L02tCY2,NEkl,NEw2. 
ATTACH,H0P,0LDI.  Y=CY1, 

ATTACH,UPP,0LD2,CY=CY2. 

ATTACH,UPPP,UPPPtCY=l. 

ATTACH,TEKLlB,TEKLIB,I0=LlBRARY,SNrAS0,CYr999. 
library, TEKLIB. 

REQUEST, NfWl,*PF. 

REQUEST, NEy2,*PF, 

UPPP. 

RE.‘INC.DU»*1. 

REMIND, CUH2. 

COPY,OUKl,NEUl. 

C0PY,0UM2fNEW2. 

RETURN  ,HOR,UPP,UP«*P,OUMl  ,DUN2. 


PROCEDURE  FILE  UPROC2 


•PROCtUPPPP.OLDl tCYl,N£Wl,NEw2. 

ATTACH ,hDR ,0L01 tCVrCY  1  . 

REQUEST, NE»1 ,*PF. 

REQUEST, NEh2,*PF. 

ATTACH,UPPP,UPPP,CY:i. 

ATTACH,TEKLl8,TEKLl6,SN=AS0,ID=LieRARY,CY=999. 
library, TEKLIB. 

UPPP . 

REWIND, OUHl. 

REWIND, 0UM2. 

COPY.OUMl  ,NEW2. 

C0PY,0UH2,NEW1. 

RETURN  ,H0R ,UPP,UPPP ,DUM1 ,OUM 2, TEKLIB. 
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PROCEDURE  FILE  IP ROC 


.PR0C,SSMPP,FL1 ,CYl,FL2,CY2tFL3,CY3. 

ATTACH, PP,FLi,CY=CYl. 

ATTACH,UPP,rL2,CYrCY2. 
ATTACH,HEADrR,FL3,CY=CY3. 
attach, SSMP,SSMP,CY=1. 

SSMP. 

RETURN,PP ,UPP,SSMP,SSM,VPARM. 

REWIND, SYSNUH. 

ATTACH,TEKLIB,TEKLIB,SN=AS0,I0=LIBRARY,CY=999. 
LIBRARY, TEKLIB. 

ATTACH,6RAFX,6RAFX,CY=1. 

6RAFX. 

RETURN, GRF,GRAFX. 

ATTACH,T6RAFx,TGRAFX,CY=1. 

TGRAFX. 

return ,TGR AFX, GRF, HEADER, SYSNUH, TEKLIB. 
LIBRARY. 
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r>oo  i-o  oo  oooooo 


POOGRiM  PPPdNPUTtOUTPUT  .header,  DUM.PP,  TAPE  1C  =  HE  ACER,  TAPE  11  rPPf 
CTApr2=0UTPUT, TAPE 5=1 NPUT .TAPE 13=0UM) 


parameter  package  PROGRAM 
DIRECTS  the  execution 
OF  THE  CHOSEN 
SUBROUTINE 


COMMON/UNITNO/ITTYIN.ITYOUT.IHOR .IPP.IDUM 
COMMON/DB/OBNAME (K ) 

C0HM0N/H0R1/SYS0SN,NSYS.NSU81.NSU62.NPARM. 

CSYSS£T(U) ,SSiSET(4),SB2SETC4 J, 

CSYSNA** « 1C,4  )  ,SUBiNM(20,4  )  ,SUB2NM  120.21 ,4  )  , 
CPARNAM(4Q,4),NUM(4a),RATEO(40),YN(40).lNVERT(40),lNOEX 
integer  S  YSOSN,  SYSSET  ,SB1SET,S82SET  .SYSNAM.SUBINM  ,SUB2N**, 

ERATEO,  YN  .PAPNAM 

DATA  IEND/3HEN0/,ILST/4HLIST/, ICRTE/4HCRTE/, 

CIMNIN/4HMN1N/ 

TEKTRONIX  PAGING 
WPITE{ ITYOUT,  1) 

WPITE( ITY0UT,4) 

WRITE(ITY0UT,2) 

REA0(ITTYIN.3)IANSR 

DO  LINE=34 

CALL  PAGER  (LINE.OJ 
IF(IANSR.EQ.IENO)  go  TO  1000 
IFdANSR.EQ.ICRTEJ  CALL  CREATE 

READ  IN  /HORl/ 

REMIND  IHOR 
CALL  REAORl 

IF  ( lANSR .EO . IMNIN  )  CALL  MANUAL 
IF  (IANSR.EO.ILST J  CALL  LIST 
WRITEdTY0UT,2) 

READdTTYIN,3  dANSR 
GO  TO  ICO 

FORMAT  STATEMENTS  ••• 

1  format  dX//,lX,70dH*),/,lX,lH'',22X,25HPARAMETER  PACKAGE  PROGRAM, 
C  21X,1H*,/, 1X,70( IH*) .// ) 

2  FORMAT  (  IX,  lOHCOMMANO  — >  ) 

3  F0R“AT(A4) 

4  FORMAT  dX,  19HC0MMANDS  A  V  A  IL  AB  LE  ;  .  /  .  5X  , 

C  28HCRTE  -  CREATES  FILE  OF  NAMES,/, 5X. 

C  49HMNIN  -  ALLOWS  MANUAL  ENTERING  OF  PARAMETER  VALUES, /,5X, 

C  43HLIST  -  LISTS  OUT  NAMES  AND  PARAMETER  VALUES, /,5X, 

L  19HEND  -  ENDS  PROGRAM,//) 

1000  CONTINUE 
STOP 
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ENO 

C 

C*m*m***m*m****m*»*mm*mm***m***mmm*mmmm*m*mmmmm**m** 

BLOCK  DATA 

COMHON/UNITNO/ITTYIN, ITYOUTt IHOR tlPPtlOUM 
DATA  I7Ty1N,ITY0UT,IHDR,IPP,I0UH/5,2,10, 11, 13/ 
END 


SUBPOUTINE  CREATE 

-CREATES  FILE  OF  NAMES,  HEADER 


COMMON/UN ITNO /ITTY IN, ITY OUT, IH0R,TPP,1DUM 
COMMON /HOP 1/SYS0SN,NSYS,NSUB1,NSU92,NP ARM, 

CSYSSET  (4  )  ,SB1SET  (U  )  ,SB2SET(‘»  )  , 

CSYSNAM ( 10,4 ) ,SUB1NM (20,4 ) , SUB2NM ( 20 , 2 1 , 4  )  , 
CPARNAM(4  0,4 ) , NUM ( 4 0 ) , R A TED ( 40 ) , YN ( 40 ) , IN VER T  ( 4Q  )  , 
CINOEX 

COMMON  /OB/  0BNAME(4> 

INTECiER  0BNAMC,SYS0SN,SYSSET,SB1SET,SB2SET,SYSnAM, 
CSUB1NM,SUB2NM,PARNAM,RATE0,YN 
data  SWl/0/,SU2/0/ 

DATA  IN0/2HN0/,IYES/3HYES/ 

**«  READ  IN  DATA  BASE  NAMES  *•« 

WRITECITYOUT, 1) 

READ (ITT YIN, 2 ) ( OBNAME ( M ) ,Msl  ,4) 

C  **•  READ  IN  NUMBER  OF  SYSTEMS  •** 

WRITE( ITY0UT,3) 

REA0(ITTYIN,4)nSYS 

C  •••  READ  IN  NUHrER  OF  LEVEL  1  SUBSYSTEMS 
WRITt(ITY0UT,5J 
READ(ITTYIN,4)NSUB1 
IF(NSU61.EQ.a)SWiri 

C  READ  IN  number  OF  LEVEL  2  SUBSYSTEMS  •** 

WRITE(ITY0UT,6) 

REA0(ITTYIN,4 )nSUB2 
IF(NSUB2.EQ.0 )SW2=1 
C  mmm  read  IN  NUMBER  OF  PARAMETERS 
wRITE(ITY0UT,7) 

REA0(ITTYIN,4  )NPARM 

C  READ  IN  SYSTEM  SETNAME  AND  SYSTEM  NAMES 

WRITE(ITY0UT,8) 

REA0(ITTYIN,2» (SYSSET(M) ,M=1 ,4) 

00  100  I=1,NSYS 

WRITE(ITY0UT,9)  (SYSSEKMJ  ,M  =  1,4),I 
REA0(ITTYIN,2) (SYSNAM (I ,M) ,m:i,4) 

100  CONTINUE 
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c 

200 

c  **« 

300 

c 

210 

400 

501 

C  ««« 

111 

515 

520 


LINC=34 

CALL  PAGEP  (LINE,0) 

IFCSwl.EC.DGO  TO  210 

READ  IN  LEVEL  1  SUBSYSTEH  SETNAME  AND  SUBSYSTEM  NAMES 
WPITEdTYOUT,  10) 

REA0(ITTYlN,2)(SblSET(M)  ,M  =  1,4) 

DO  2C0  l=ltNSUBl 

WRITE  (ITYOUT.llJ  ( SB  1  SET ( M ) ♦ M  =  1  , 4  )  ,  I 
OEAD< 1TTYIN,2) (SUBINM (I ,M) ,M=1 ,4  ) 

CONTINUE 

IF(Sto2.EQ.l>  60  TO  210 

READ  IN  level  2  SUBSYSTEM  SETNAME  AND  SUBSYSTEM  NAMES  *** 
WPITEdTYOUT, 12) 

REA0dTTYlN,2)<S82SET(M)  ,M  =  1  ,4) 

DO  3C0  I=1,NSUB1 

DO  300  I1-=1,NSUB2 

WRITE  dTY0UT,13)  ( S82SET  (  M  )  ,  M=1 , 4  )  , 
(SUBlNMd,M),M=l,4),Il 

READ  dTTYlN,2)  (  S  UB  2NM  (I  ,  1 1  ,  M  )  ,  M=  1 , 4  ) 

CONTINUE 

LINE=34 

CALL  PAGER  (LINE,0) 

READ  IN  PARAMETER  NAMES  **• 

DO  400  Irl.NPARM 

WRITE  d.TY0UT,l4)  I 
PEADdTTYlN,2)rPARNAM(I,M),M=l,4) 

CONTINUE 

LINE=34 

CALL  PAGER  (LINEfO) 

00  501  I=1,NPARM 
RATE0d)r0 
YNd)ro 
NUMd)=0 
lNVEPTd)=0 
CONTINUE 

WHAT  TYPE  parameter  AND  DOES  IT  NEED  TO  BE  INVEPTED 
DO  500  Irl,NPAHM 
CALL  PAGER  (LINE, 2) 

WRITE  (  ITYOUT  ,  15  )  (PARNAMd  ,M  )  ,M  =  1 ,4  ) 
PEACdTTYlN,lb)NANSR 
LINE:LINE+2 

IF(NANSR.EQ.INO)  go  to  515 

NUMd)=l 

GO  TO  550 

CALL  PAGER  (LINE, 2) 

WRITE (IT TOUT,  17)  (PARNAM(1,M),M  =  1,4) 

READdTTYiN,  lfe)KANSR 
LINE=LINE*2 

IF(KANSR.EO.INO)  go  to  520 

PATED(I)ri 

GO  TO  560 

CALL  PAGER  (LINE, 2) 

WRITE (ITYOUT, 18  )  ( P ARN AM ( I , M ) , ^  =  1 , 4 ) 

PEADdTTYiN,  16)LANSR 
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525 


550 


560 


530 

C 

C  ««« 

c 


600 


700 


800 

605 


900 

C 

c 

c 

1 


LINE=LINE42 

IF(L«NSR.CQ.lN0)  GO  TO  S25 

YN(I)=1 

60  TO  560 

CALL  PAGER  (LINE, 2) 

WRITE(ITY0UT,19) 

LINE=LINE^2 
60  TO  111 

CALL  PAGER  (LINE, 4) 

WRITE(ITY0UT,20) (P ARN AM ( 1 ,M I , M=1 , 4 » 

REA0(ZTTYIN,16)HANSR 
IF(HANSR.EQ«IYES)INVERT(I irl 
LiNESLiNEfH 
NANSR=0 
KANSR=0 
LANSR=0 

mansr=o 

CONTINUE 

INPUT  INTO  HEADER 
REUINO  IHOR 

WRITE(IH0R,23) (OBNAME(M) ,H=1,4) 

IF(Skl.EQ.l.ANO.SU2«E0.1 )SYS0SN=1 
IF(Sn1.EC.U.AN0.SW2.E0.1 )SYS0SN=2 
IF(5u1.EQ.0.AN0.SU2.c6.0 )SYSDSN:3 
WPIT£(IH0R,21)SYS0SN 
WfiITE(IHDR,22)NSYS 
WRIT£(IH0R,22  )NSUei 
WRITE(IH0R,22)NSUB2 
WRIT£(IHD9,22)NPARM 
liKiT£(IH0R,23MSYSSET(M)  ,Mrl  ,4) 

IF(SYS0SN,6E.2)WRITE(IH0fit23) CSBISET(H) ,M  =  1  ,4  ) 
IP(SYS0SN.E0.3)URITE(IH0R,23) (SB2SET(MJ ,M  =  1 ,4  ) 

00  too  I=1,NSYS 

WRITE (IH0R,2  3) ( S YSN AM ( I  , J J , J= 1 , 4 > 

CONTINUE 

IFCSUl .EO.l)  GO  TO  60S 
00  70C  I=1,NSU31 

WRITE (IHOR  ,2  3) ( SUB INM ( I  , J ) , J=1 ,4 ) 

continue 

IF(SW2.EQ.1)  go  to  60S 
00  BOO  I=l,NSUol 
00  800  J=1,NSUB2 

WPITE(IH0R,23) ( SU62NM ( I , J, M I , M=1 , 4 ) 

continue 

00  900  I=1,NPARM 

WRITE (IHOR, 24 ) (PARNAM ( I , J ) , jr 1 , 4 ) , NUM (I),RATEO(I),YN(I), 
INVERT(I) 

continue 

FORMAT  statements 

F0R*'AT(1X,35hENTeR  OATA  BASF  NAME  (“AX  16  CHARS)/) 
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2  F0«MAT(UA4) 

3  FCR^<AT  (1X,34hENTER  NO.  OF  SYSTEMS  (2  DIGIT  NO.»/) 

4  FOR-ATII2) 

5  format (IX, 45HENTER  NO.  OF  LEVEL  1  SUBSYSTEMS  (2  DIGIT  NO.J/) 

6  format (IX, 45HENTER  NO.  OF  LEVEL  2  SUBSYSTEMS  (2  DIGIT  NC.»/) 

7  FORMAT( 1X,37HENTER  NO.  OF  PARAMETERS  (2  DIGIT  NO.l/J 

8  FORmaT(1X,37hENTER  SYSTEM  SETNAME  (MAX.  16  CHARS.)/) 

9  format (IX, IShENTER  NAME  FOR  ,4A4,5H  NO.  ,I2,16H  (MAX.  16  CHARS)/) 

ID  F0RMAT(1X,47HEnTEP  LEVEL  1  SUBSYSTEM  SETNAME  (MAX.  16  CHARS)/) 

11  F0RmaT(1X,14HENT£P  name  F0R,1X,4A4,6H,  NO.  ,12,2X, 

C  16H(MAX.  16  CHARS.)/) 

12  FORMaT(1X,38HENTER  LEVEL  2  SUBSYSTEM  SETNAME  (MAX.  , 

C  9H16CHARS.)/ ) 

13  format ( IX, 14HENTEP  NAME  FOR , 1 X , 4 A4 , 3H  ,  ,4A4,6H,  NO.  ,I2,2X, 

C  16H(MAX.  16  CHARS.)/) 

14  FORMAT ( IX, 28HENTEP  NAME  FOR  PARAMETER  NO. ,12,/) 

15  format ( IX, 3H1S  ,4A4,33H  A  NUMERICAL  PARAMETER  ?  (YES/NO)/) 

16  FORMAT(A3) 

17  FORMAT  (1X,3HIS  ,4A4,29H  A  RATED  PARAMETER  ?  (YES/NO)/) 

18  FORMATdX  3HIS  ,4A4,35H  A  QUALITATIVE  PARAMETER  ?  (YES/NO)/) 

19  format ( IX  ,42hERRCP  —  PARAMETER  MUST  BE  CLASSIFIED  AS  A, 
tZCHNUMEPlC,  RATED,  OR  QU ALIT AT  I VE/ IX , 12HP AR AMETER  -  , 

C9HTRY  AGAIN/) 

20  FORMAT  (IX,4SHF0R  NUMERICAL  PARAMETERS,  ThE  LOWEST  VALUE  lS»/» 

C  1X,28HC0NSI0ERE0  THE  “BEST"  VALUE.,/, IX, 

£32H  CO  YOU  WISH  TO  INVERT  THIS  FOP  ,4A4,11H  ?  (YES/NO)/) 

21  FORMAT(ll) 

22  F0RMAT(I2) 

23  F0RMAT(4A4) 

24  F0RmaT(4A4,11,I1,I1,I1) 

RETURN 

END 

C 

C«4t««***«««**««««*«««««««*««*«**«««*«««*«*»*»»«**»«***********i»«* 

SUBROUTINE  PEADPl 
C 

C  -READS  IN  header  FILE 

C 

C«*«««»*«*«*******«*«*«***«*«**«««»««***«******»*****4*********** 

C 

COMMON/UN ITNO/ITTYIN, I TYOUT, IHDR  ♦IPP,IDUM 
COMMON/HORl/SYSOSN,NSYS,NSue 1,NSU92,NPARM,SYSSET (4  )  , 

C  SBlSET(4),S32SET(4),SYSNAM(10,4),SUBlNM(2Q,4),SUe2NM(20,21,4), 
CPARNAM(40,4),NUM(40),RATE0(40),YN(40),INVERT(4C),INDEX 
COMMON/DB/DBNAME  (4  ) 

INTEGER  DBNAME 

INTEGER  SYS0SN,SYSSET,S81SET ,SB2SET.SYSNAM,SUB1NM,SUB2NM, 

CRATED, YN,PAPNAM 
C 

c  mm*  READ  IN  HEaOER 
RE.IND  IHDR 
C 

REAP (IHDR ,3)(DBNAME(M),Mri,4) 

RFADdHOR.DSYSOSN 


READ  t IH0Rt2)NSYS 

RCAOdHOR.ZINSUSl 

ReA0(IH0Rt2>NSUe2 

R£A0(ZH0R»2)NPARH 

REAC(IH0R,3)  (SYSSET(I)  ,1  =  1,**) 

ir(SYS0SN.6E*2)REA0(lH0R,3)  (Se2S£T(I>,I  =  l  «<•  > 

ir(SYSCSN.E0.3)R£AO(IHORf3) (SB2SCT(I) =  ) 

CO  IQO  I=1»NSYS 

REAr(IHOR,3) (SYSNAH(I,J) ,J=1 ,4) 

ICO  CONTINUE 

iriNSUBl.EQ.Q)  GO  TO  4QO 
CO  2QO  I=1,NSUB1 

READ  ( 1H0P»3) (SUaiNM (I ,J  ) , jri ,41 

200  continue 

IF(NSUB2.EQ.0)  go  to  400 
00  300  K=1,NSUS1 
00  301  I=1«NSUB2 

REA0(IH0R,3) ( SUS2NM (K , I , J ) ,j:i,4) 

301  CONTINUE 
300  continue 
400  continue 

DO  SaO  I=1,NPARM 

REA0(TH0R,4 ) (PARNAM (I , J) ,J  =  1 , 4 ) , NUH ( I ) , R ATE  0 ( I ) t YN ( I ) , INVERT ( 1 1 
500  CONTINUE 
C 

C  •••  CALCULATE  INDEX  ••• 

C 

IF(NSU81.EO.O)GO  to  800 
IF(N$UB2.EQ.0)G0  TO  900 
lN0EX=NSuei*NSUS2 
GO  TO  1000 
800  INOExrl 

GO  TO  1000 
900  iNOExrNSUBl 

1000  CONTINUE 

C 

c  «•«  format  statements  ••• 

C 

1  FORMAT  (11) 

2  format  (12) 

3  format  (4A4) 

4  FORMAT  (4A4,Il,Ii,Il,Il  ) 

RETURN 

END 

C 

C 

C««««*«*«*****«***«*«*««««««««»**«««««****«***«***«********««*«tt* 

SL'BOOUTINE  MANUAL 
C 

C  -  ALLOWS  ENTERING  OF  PARAMETER  VALUESt  CREATES  FILE  PP 

C 

C««**«**«««*«*«*«*««««««««*«»*«*****««****«*»*»****«**********»»* 

c 

COMMON  /UNITNO/  I T T Y IN , I TYQUT , IHOP ♦ IPP » lOUM 
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COMMON  /HDRl/  SYS0SN,NSYS,NSU81,NSUB2,NPARM, 

C  SYSSET(4)  .SBISEH**  ),SB2SETf  **)  jSYSNAMdO,^  )  ,  SUB  1 NM  { 20 , 4  )  , 
C  SUB 2NM(20,21f4), PARK AMi 40  »4  » ,NUM(4C ),RATE0(40),YN(40), 

C  INVERT«40) , INDEX 
DIMENSION  PARAM(8S,1Q) 

INTEGER  SYSDSN.SYSSET  tSBlSET ,Sa2SET,SYSNAM,SUB INM ,SUB2NM, 
C  parnam,rated»yn 

DATA  TBLANK/IH  / 

C 

REblNO  IPP 
LINE=C 
C 

GO  TO  ( 1000«2000, 3000 ) .SYSOSN 
C 

1000  CO  100  I=1,NPaRM 

CALL  PAGER  (LINE»4) 

WRITE  (ITY0UT,4)  ( P ARN AM 1 1  ,M » ,M= 1 , 4  ) 

IF  (NUM(I).EQ.l)  WRITE  <ITY0UT,1» 

IF  (RATEO( I)  .EQ.l)  WRITE  (ITY0UT,2) 

IF  (YN(l).EO.l)  WRITE  (ITyOUT,3) 

LINE=LINE*4 

IF  (RATED(I)  .EO.l)  LINE  =  LINE*1 
00  150  J=1,NSYS 

CALL  PAGER  (LINE. 2) 

WRITE  (ITYOUT.S)  ( S YSNAM ( J  .  M ) , M= 1 , 4 ) 

READ  (ITTYIN.*)  PARAMd.J) 

LINE3LlNE-»2 
150  CONTINUE 

WRITE  (IPP,*)  (PARAMd.jJ.jri.NSYS) 

100  CONTINUE 

GO  TO  9000 
C 
C 

2000  DO  200  iri.NPARM 

CALL  PAGER  (LINEf4I 

WRITE  (ITyCUT,4)  (PARNAM(  I,M>  ,»'=1,4) 

IF  (YN(Il.EQ.l)  WRITE  (ITY0UT,3) 

IF  (RATEO(I)  .EO.l)  WRITE  (ITY0UT,2) 

IF  (NUMd  )  .£0.1  )  WRITE  (ITYOUT.I) 

LINE=LINE*4 

IF  (RATEOd)  .EQ  .1)  LINE  =  LINE»1 
CO  250  Kri, INDEX 
00  250  Jd.NSYS 
CALL  PAGER  (LINE, 2) 

WRITE  (ITYOUT.S)  (SYSNAM( J.M ) ,M  =  1 , 4  )  , 

C  (SUB 1NM(K .M I ,M=1 .4) 

READ  (ITTYIN.*)  PARAM(K,J) 

LINE:LINE>2 
250  CONTINUE 

00  260  K=l, INDEX 

WRITE  (IPP,*)  (PARAM(m,w) , J=1,NSYS  ) 

260  CONTINUE 

200  CONTINUE 

GO  TO  9000 
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c 

c 

3000  DO  300  I=l,NPARf 

CALL  PAGER  (LINE,H) 

WRITE  (ITY0UT,4)  (PARNAH(ItH) 

IF  (NUMCD.EO.l)  WRITE  (ITYOUT,!) 

IF  <PATEO(I)  .EO.l)  WRITE  (ITYOUT, 2) 

IF  (YN(l).EQ.l)  WRITE  (ITYOUT, 31 
L1NE=LINE*H 

IF  (RATED(I)  .EQ.l)  HNE  =  LINE*1 
00  350  J=1,NSYS 
INOrO 

00  3S0  K=1,NSUB1 
00  350  l=1,NSUB2 

CALL  PAGER  (LINE, 2) 

WRITE  (ITYOUT, 6)  (  S  YSN  A**  ( J,  M  )  ,  M  =  1 , 4  )  , 

C  (SUB1NH(K,H),H  =  1,4), (SUe2NM(K ,L  ,M  )  ,Hr I  ,4) 

INP=IN0*1 

REAO  (ITTYIN,*)  PARAM  (IN0,J) 

LINE=LIN£^2 
350  CONTINUE 

DC  360  K=l, INDEX 

WRITE  (IPP,*)  (PARAM(K,JJ),JJ:1,NSYS) 

360  CONTINUE 

300  CONTINUE 

9000  CONTINUE 

C 

C*««  FORMAT  statements 
C 

1  FORMAT  (IH  ,44MTHIS  IS  A  NUMERIC  PARAMETER  -  ENTER  A  NUMBER/) 

2  FOR'-AT  (IH  ,44HTMIS  IS  A  RATED  PARAMETER  -  RATE  AS  FOLLOWS:»/t 
t  IX  ,48H1-EXCELLENT,  2-6000,  3-FAIR,  4-POOR,  5-VERY  POOR,/) 

3  FORMAT  (IH  ,50HTHIS  IS  A  OUALITATIVE  PARAMETER  -  ENTER  1  FOR  YES, 
C  9H  0  FOR  NO,/) 

4  FORhAT  (IH  ,4A4,/) 

5  format  (1X,4A4,4H  —  ,4A4,/) 

6  FOR“AT  (1X,4A4,4H  —  ,4A4,4H  —  ,4A4,/) 

C 

RETURN 

END 

C 

C**************************************************************** 

SUBROUTINE  LIST 
C 

C  -  PRINTS  OUT  parameters  AND  THEIR  VALUES 

C 

C**************************************************************** 

c 

COMMON  /UNITNO/  ITTYIN, ITYOUT, IHOR, IPP, lOUM 

COMMON  /HORI/  SYSDSN,NSYS,NSUBl,NSUe2,NPARM,SYSSET(4),SBlSET(4), 

C  S6TSET(4 ) ,SYSNAM( 10,4 ), SUB 1NM(2C,4 ) ,SUB2NM (20,21 ,4 ) , 

C  PAONAM(40,4)  ,NUM(4a)  ,  R  A  TE  0  (  4  0  )  ,  YN' (  4  Q  )  ,  1  N  V  E  R  T  (  4  C  )  ,  INDEX 
INT^-GER  SYSOSN,SYSSET,SB  ISET  ,  SB2SET  ,  SYSN  AM  ,  SUB  INM  , 

C  SU62NM, RATED, YM,PARnAM 
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REtaiNC  IPP 
C 

LlMrie 

IF  (NSYS.LE.9)LIM=LIM-3 
IF  (NSYS.LE.6)  L1P=LIM-3 
IF  (NSYS.LE.3)  HM=LIM-3 
C 

GO  TO  (1000,2000,3000),  SYSDSN 
C 

1000  continue 
11  =  1 

DO  100  I=1,NPaRH 
LINE=34 

IF  (i.NE.i)  call  Pager  (line»o) 

WRITE  (ITY0UT,2)  (  P  ARNA  M  (  I  ,  M  )  ,  >*  =  1 , 4  ) 

CALL  WRTOUT  (I, II) 

WRITE  (ITY0UT,4) 

100  CONTINUE 
C 

RETURN 

C 

2000  continue 

00  200  I=1,NPARM 
LINE=34 

CALL  PAGER  (LINE,0) 

WRITE  (ITyOUT,2)  ( P AR N A M ( I, M J , N=1 , 4 ) 
LlNE=LINE-»5 

DO  210  11=1, INDEX 
CALL  PAGER  (LINE,LIM) 

IF  (LINE.EO.C)  -RITE  (ITYOUT,!) 

IF  (LINE.EQ.O)  LINE=1 
WRITE  (ITYOUT, 3)  ( SUB 1N« ( 1 1 , M )  ,  N= 1 , 4  ) 
call  WRTOUT  (1,11) 

WRITE  (ITYOUT, 4) 

LINE=LINE+LIN 
210  CONTINUE 

200  CONTINUE 
C 

c 

RETURN 

C 

3000  continue 

LIM=LIM*5 

DO  300  I=1,NPaRM 

LINE=34 

CALL  PAGER  (LINE,0) 

WRITE  (ITYOUT, 2)  ( P ARNA H ( I , M )  ,  l  ,  4 ) 
LINE=LINE>5 
iNCXrO 

DO  310  J=l,NSuBl 

CALL  PAGER  (LlNE,LIM) 

IF  (LINE.EQ.O)  WRITE  (ITYOUT,!) 

IF  (LINE.EQ.O)  LINE=1 
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WPITt  (ITYCUT,3)  « SUB1NM( J,M) ,m=1,4  ) 

DO  IZr  K=1,NSUB2 

WRITE  (iTYOUT,3)  ( S  UB2NK  ( J  ,  K  ,  M )  ,  M=  1 ,  i» ) 

INDX=1NDX41 

1I=IN0X 

CALL  WRTOUTd.II) 

WRITE  (1TY0UT,4) 

LINE=LINl^LIM 
32C  CONTINUE 

310  CONTINUE 

300  COHTINUE 

C 
C 

RETURN 

C 

C»**  FORMAT  STATEMENTS  **• 

C 

1  FORMAT  J1X,70(1H*)) 

2  format  aX,7Q(lH*)/lX,lH*,6aX,lH*/lX,lH*,26X,4A«»,26X,lH*/ 

C  lX,lH*,68X«lH«/iX,70(  IH*)  ) 

3  format  <lX,lH*,68X,lM*/lX,lH*,26Xt4A4,2«>X,lH*/ 

C  lX,lHMt6eXtlH«/lX,7Q(lH«)  ) 

4  format  (lX,lH*t6aXylH«/lX,7C(lH*)  ) 

C 

END 

C 

C 

C*«»«»»*«««««*«»«M*««*»*»*«««««*«««**«**M*»*«*«**»**«*»W»**»»***» 

SUBROUTINE  WRTOUT  (I, II) 

C 

C  -  PERFORMS  PART  OF  LISTING  CHORES 

C 

Ctfmmm***mmm****mm**mm*w*m*0m*m**mm**m*m************************** 

C 

COMMON  /UNITNO/  I TT YI N , I T Y OU T , IHO® » I PP » I DUM 

common  /HORI/  SYS0SN,NSYS,NSUBl,NSue2»NPARM,SYSSET(4) , 

C  SBlSET(4),SB2SET(4),SYSNAM(10,4)»SUBlNM(20t4), 

C  SUB2NM(20f 21 ,4 ) yPARNAM  <  40 ,4 ) ,NUM ( 4C ) ,RA  TED (40  >  , 

C  YN(4C) ,lNVERT(4u) iINOEX 
DIMENSION  pARAM(B5.10),IQUALT(5t3)»IPARAM(10) 

INTEGER  SYS0SN,SYSSET,SB1S£T,S82SET,SYSNAM,SUB1NM, 

£  SU?2NM,RATE0, YNyPARNAMyPARAMl (10) 

C 

DATA  IQUALT ( 1 , 1 ) /4HEXCE/ tIQUALT( 1,2)/4HLLEN/, lOUALK 1 , 3)/4HT  / 

DATA  I0UALT(2»1»/«HG000/,IQUALT(2»2)/4h  / , IOUAL T ( 2 , 3 ) /4h  / 

DATA  ICUALT t 3, 1 ) /4HFAIR/ ,IQUALT( 3,2)/4H  / , IOU AL T { 3 , 3 ) / 4H  / 

DATA  lOUALT (4 ,1 ) /4HP00R/ ylOUALT ( 4 ,2) /4H  / , I QU AL T ( 4 , 3 ) / 4 H  / 

DATA  ICUALT(5,l)/4HVEPY/fIGUALT<5,2)/4H  POO / , IOUAL T { 5 , 3 ) / 4HP  / 
DATA  IYES/3MYES/,IN0/2HN0/ 

C 

READ  (IPP,*)  (PARAM (II ,MT)  ,MT:1,nSYS) 

DO  9000  J=ltNSYS 

IPARAM( J)=PARAM(II,J) 

9000  CONTINUE 
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5C  TO  (  loco,  1 100, 12GG,  1  3CQ  1500, 1600, 17C0, 1800, 1900  ,  NSYS 

C 

1000  RETURN 
C 

HOC  ir  <NUM(i)  .EQ.i)  GO  to  mo 

IF  ( RATED ( I )  .EQ  .  1 )  GO  TO  1120 
IF  ( YN ( I  )  .£0 . 1  )  GO  TO  1130 
RETURN 

1110  -RITE  (ITYOUT,!)  (  (SYSNAf'(M,MM),MM:l,4)  ,m  =  1,NSYS)  , 

C  (PARA^‘ (  II  ,“L  )  ,  ML=1  ,NSYS  > 

RETURN 

1120  WRITE  (ITYOUT, 2)  (  ( S Y SN AM ( M , MM ) , KM= 1 , 4 ) , M  =  1  ,  N S Y S  )  , 

C  ((ICUALT(IPARAM(ML),J),J=1,3»,“L=1,NSYS) 

RETURN 

113C  DO  1131  L=l,NSYS 

IF  (PARAM( II,L ) .EQ.O J  P AR AmI ( L ) =IN0 
IF  (PARAM(II,l)  .EQ.l)  PARAM1(L)  =  IYES 
1131  CONTINUE 

WRITE  (ITYOUT, 3)  (  ( S Y SN A M ( M , MM ) , MM= 1 , 4 ) , M r 1  ,  N S Y S  )  , 

C  (PARAMl  (LJ  ,L  =  1,NSYS) 

RETURN 

C 

1200  IF (NUM ( I )  .EO  .  1 )  GO  TO  1210 

IF  (RATEO(I) .EQ.l)  GO  TO  1220 
IF  ( YN(I)  .EO.l)  GO  TO  1230 
RETURN 

1210  WRITE  (ITYOUT, 4)  (  ( S Y SN A M ( M , MM ) , MM= 1 , 4 ) , M  =  1  ,  N S Y S  )  , 

C  (PAR AM( II ,ML > ,ML=1 ,NSYS) 

RETURN 

1220  WRITE  (ITYOUT, 5)  (  ( S Y SN A M ( M , MM  )  , MM  =  1 , 4  )  ,  M=  1  ,  N s Y s  )  , 

C  ((ICUALT(lPARAM(ML),j),jri,3),ML=l,NSYS) 

RETURN 

1230  DO  1231  L=1,NSYS 

IF  (PARAM( II ,L  )  .EQ  .0  )  PAPAMl ( l)=INO 
IF  (PARAM( II ,L  )  .EQ  .  1  )  PARAM1(L)=IYES 

1231  continue 

WRITE  (ITYOUT, 6»  (  (S  YSNAM  (M,mm  )  .M^-ri ,  4  )  ,Mr  1  ,nSYS  )  , 

C  (PARAMl (L) ,L  =  1 ,NSYS  ) 

RETURN 

C 

1  300  IF  (NUM ( 1 )  .EQ  .  1 )  GO  TO  1310 

IF  (RATED(I)  .EQ.l)  GO  TO  1320 
IF  (YN(I).EO.l)  GO  TO  1330 
RETURN 

1310  -rite  (ITYOUT, 7)  ((SYSNAM(M,MM),mm=1,4),M  =  1,3), 

C  (PARAM(II,ml),ML=1,3),(SYSNAM(4,mm>,^M=1,4), 

€  RAPA**  (  II  ,4  ) 

RETURN 

1320  WRITE  (ITYOUT, 8)  (  (  S  Y  SN  A  M  (  M ,  mm  ) ,  mm=  1  ,  4  )  ,  M.r  l  ,  2  >  , 

Z  ((IQUALT(lPARA-(ML),J),J=l,3),MLri,3>, 

L  (SYSNA‘*(4,*«M),MM=1,4»,(I0UALT(IPAR4M(4),J),J  =  1,3) 

RETURN 

1330  DO  1331  L=1,NSYS 

IF  (PARAM ( II ,L » .EC  .0 »  P AR AMI ( L ) =IN0 


IF  (PARAM(II,L)  .EC.1»  PAR*MHL)=IYES 

1331  CONTINUE 

WRITE  (ITYOUT,9)  (  ( S YSN A M ( H , HH ) , HM= 1 , H  )  , M: 1 , 3  )  , 

C  (PARiMl(L),L=l,3),(SYSNAM(4,MH),HM=l,4), 

C  PAPA“1  (4  ) 

RETURN 

C 

1400  IF  (NUM(I)  .EO.l)  GO  TO  1410 

IF  (RATEO(l)  .EQ.l)  GO  TO  1420 
IF  rYN(I),E0.1)  GO  TO  1430 
RETURN 

1410  WRITE  (ITY0UT,10)  (  ( S YSN AN ( M , MM ) , MH=1 , 4 ) , M=  1 , 3  )  , 

C  (PARAM(II,ML),ML  =  1,3),(  (SYSNAM(M,MM) »MM  =  1 , 4  )  ,M  =  4 , 5  »  ♦ 
C  (PARAM (II,ML)  ,ML  =  4,5  ) 

RFTURN 

1420  WRITE  (ITYOUT.ll)  ( ( S Y SN AM (M ,MM ) , hm  =  1 , 4 ) , Mrl ,  3  )  , 

€  t { ICUALT I IPARAM(ML) , j) , jri,3) ,ML  =  1,3)  , 

£  (  {SYSNAM<M,MM)  ,M>‘:1,4)  ,M  =  4,5), 

C  ( {IQUALT(IPARAM(ML) ,J) ,J=1,3),ML=4,5) 

RETURN 

1430  DC  1431  L=ltNSYS 

IF  (PARAM{I1,L)  .EQ.O)  P AR AM  1 ( L >  =  I  NO 
IF  (PARAM(II,L)  .£0.1)  PARAM1(L)=IYES 

1431  CONTINUE 

WRITE  (rTY0UT,12)  { ( S YSN AM ( M ,MM ) , MMr 1 , 4 ) t MS  1 , 3  )  , 

C  (PARAMl{L)fL=l»3),((SYSNAM(M,MM),MMSl,4),MS4,5), 

C  (PARAMl (L) tLS4tS) 

RETURN 

C 

1500  IF  (NUM(I).EO.l)  60  TO  1510 

IF  {RATED(I)  .EQ.l)  GO  TO  1520 
IF  (YN(I).EO.l)  60  TO  1530 
RETURN 

1510  WRITE  (ITY0UT,13)  (  ( S Y SN AM ( M , MM ) , mms 1 , 4 ) , MS  1 , 3  )  , 

C  (PARAM(II,“L),MLsi,3),( (SYSNAM(M,MM) ,MMsi ,4) ,MS4 ,6  *  , 
C  (PARAM(II,ML) ,MLS4,6) 

RETURN 

1520  WRITE  (ITY0UT,14)  ( ( S Y SN AM ( M ,MM ) , hmsi , 4 > , Ms  1 , 3  )  , 

C  ((IQUALT{IPARAM<ML),J),JSl,3)tML=lt3)» 

£  ( (SYSNAM(M,MM) tMM=l,4) ,MS4,6), 

£  ( (IQUALT(IPARAM(ML) ,J) ,jsl,3) ,MLS4,5) 
return 

1530  00  1531  LsifNSYS 

IF  (PARAM(1I,l)  .EQ.O)  P AR AMI ( L) =IN0 
IF  (PARAM(II,l)  .EQ.l)  PARAM1(L)  =  IYES 

1531  CONTINUE 

WRITE  (ITY0UT,15)  (  I S Y SN AM { M ,MM ) , mmsi , 4 ) , Ms  1 , 3  )  » 

£  (PARAMl(L),Lsl,3),((SYSNAM(M,MM),MM=l,4),MS4t6), 

£  (PARAMl (L) .L  =  4, 6  ) 

RETURN 

C 

1600  IF  (NUM(I) .EQ.l)  GO  TO  1610 

IF  (RATED( I) .EO.l )  GO  TO  1620 
IF  (YN(I).£0,1)  60  TO  1630 
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RCrURN 

161C  write  (IT  tout  ,16)  ((SYSNAM(M,HM),HHrl,i4),M=l,3), 

L  (PAR*M(II,ml),ML  =  1,3),((SYSNAM(M,MM) ,MM=1 , 4  )  ,M  =  4 ,6)  , 
£  (PARAM ( II ,ml ) jMLTM , 6) , ( SYSMAM(7,HM ) , MM  =  1 ,4  )  , 

£  PAOAH(II,7) 

RETURN 

1620  write  (ITY0UT,17)  (  ( S YSN AH (M ,HM ) , HM= 1 , 4 ) , M= 1 , 3  )  , 

t  ((I0UALT(IPARAH(HL),J),J=lt3»  »HL  =  1 , 3  )  , 

C  ( (SYSNAM (M,MM)  ,MH=1 , 4 ) ,H=4,6)  , 

C  ( (ICUALT ( IPARAH{ML ) , J ) , jrl ,3) ,ML  =  4,6  )  , 

L  (SYS).AM(7,HM),HM  =  1,4),(IQUALT(IPARAM(7),J),J=1,3) 
RETURN 

1630  DC  1631  L:1,NSYS 

if  (PARAM (11 , L)  .£Q  .  0  )  PARAH1(L)-IN0 
IF  (PARAM(II,L)  .£0.1)  PARAMl (L)  =  IYES 

1631  continue 

WRITE  (ITY0UT,18)  ( ( S Y SN AM ( M , MM ) , MMr 1 , 4 ) , M=  1 , 3  )  , 

£  {PARAMl(L),l.ri,3),({SYSNAM(M,MM),  MM=1 , 4  )  ,M=4,6  )  , 

£  (pARAMl(L),L=4,6),(SYSNAM(7,MM),MMrl,4), 

£  PARAM1(7) 

RETURN 

C 

1700  IF  (NUM( I )  .EQ  .1  )  GO  TO  1710 

IF  (RATED(I)  .EO.l)  GO  TO  1720 
IF  (YN<I) .£0.1)  GO  TO  1730 
RETURN 

1710  WRITE  (ITY0UT,19)  ( ( SY SN AM (M , MM ) , MM= 1 , 4 ) , m=  1 , 3  )  , 

£  (PARAM(II,“L),ML=l,3),((SYSNAM(M,MM),MM:i,4),Mr4,6>, 
£  (PARAM(II,ML),MLr4,6),((SYSNAM(M,MM) ,MM=1 ,4 ) ,Mr7 ,8  )  , 

£  (PARAM( II.ml  )  ,ML  =  7,a  ) 

RETURN 

1720  write  (ITY0UT,20)  ( ( S YSN AM ( m , mm ) , “Mrl , 4 ) , M=  1 , 3  )  , 

£  ((I0UALT(IPARAM(Ml.),J),J=l,3),ML=l,3), 

£  ( ( S YSNAM ( M,MM) , MM=1 , 4 ) ,M=4,6) , 

£  ((I0UALT(IOARAM(ML),J)rJ=l,3),ML=4,6), 

£  MSTSNAM(M,MM)  ,mm  =  1,4)  ,m:7,8)  , 

£  ((iauALT(IPARA“(ML),J),J=l,3),MLr7,8) 

RETURN 

1730  DO  1731  L=1,NSYS 

IF  (PARIM(II,L)  .£0.1)  PARAMl IL)  =  IYES 
IF  (P'.RAM(II,L)  .£0.0)  PARAMl  (L)  =  lNO 

1731  CONT'.NuE 

write  (ITV0UT,21)  (  (SYSNAM)M,MM) ,MM=1 ,4 ) ,M=1, 3  )  , 

£  (PARAM1(L),L  =  1,3),((SYSNAM(M,MM),  M*'=1 ,4  )  ,M  =  4 ,6  )  , 

C  (PARAM1{L),L:4,6),((SYSNAM(M,MM),MM=1,4),M=7,8), 

£  (PARAMl  (L ) ,L  =  7 ,6  ) 

RETURN 

C 

1800  IF  (NUM( I  )  .EQ  .  1  )  GO  TO  1£10 

IF  (RATED ( I)  .EQ  .  1 )  GO  TO  1820 
IF  ( YN ( I )  .EO .  1 )  60  TO  18  30 
RETURN 

1810  -oITE  (ITY0UT,22)  ( ( S YSN AM { m , mm ) , -Mri , 4 ) , Mrl , 3  )  , 

£  (PARAM(II,ML),MLri,3),((SYSNAM(M,MM),MMri,4),Mr4,6), 
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c  (P*R*M{  »  ,ML  =  4,6  )  ,  (  (SYSNAMI«,M*f)  ,MH  =  1 ,4)  ,M  =  7 ,9)  , 

C  (PARAH(II,mL),HL=7,9) 

RETURN 

1820  NRITE  (ITYOUT,23)  ( ( S YSN *H (P ,MH ) , HM=1 , 4 ) , P= 1 , 3  )  , 
t  (  (iQUALTi  IPARAH(KL)  t  J> »  3)  tNi.  =  lt3)  » 

I  ( (SYSNAH(H,NH) ,HP=1,4) tH=4«6) t 
t  ( (ICUALT(XPARAH(ML) t J) ,HLr4»6)  » 

C  » (SYSNAH(M,MMJ ,HM  =  1,4  )  ,Pr7,9»  , 

C  ( (lOUALTdPARAPtPL) » J)  » J=lt3)  tHL=7t9) 

RETURN 

1830  00  1831  L=1«NSYS 

IP  (PARAH(ZZ,L>.EC.0)  PARAHl (L)=IN0 
IF  (PARA>*(ZZ*L).EQ.l)  PARAHl  (L)=IYES 

1831  CONTINUE 

WRITE  (ITY0UT,24)  ( ( S YSN AH ( H ,MH ) , PMr 1 , 4 ) , MS  1 , 3  ) , 

C  (P«R»M1(L),LS1,3)»( (SYSNAM{M,HH) ,MHS1,4 ) ,Mr4,6  )  » 
t  (PARAMI (L) ,L=4 ,6 ) , ( (SYSNAM(M,MM 1 ,MMri ,4 ) ,M=7,9  » , 

C  (PARAHl CL)  tL  =  7,9) 

RETURN 

C 

1900  IF  (NUM(I)  .EQ.l)  GO  TO  1910 

IF  (RATEO(I)  .EQ.l)  GO  TO  1920 
IF  (YN(I).EO.l)  GO  TO  1930 
RETURN 

1910  WRITE  (ITYOUTf25>  ( ( S YSN AM C H ,MM ) , -M= 1 » 4 ) , MS  1 , 3 ) , 

£  (PARAM(II,ML),MLS1,3) t  C  ( S YSNAH C M ,MM J ,MMS1 , 4  )  ,  Kr4 , 6  )  , 

C  (PARAM(II,ML) ,MLS4,6) , ( ( S YS N AM ( M , MM ) , MMSl , 4  )  , MS?  ,  9  )  , 

C  CPARAM(II,ML)fMLs7,9 J, (SYSNAM(1C»MM),MMS1,4), 

C  PARAM(IItlC) 

RETURN 

1920  WRITE  (1TY0UT,26)  ( ( S Y SN AM ( M ,MM ) , MMS 1 , 4 ) , MS  1 , 3  )  ♦ 

£  ( (IQUALTcIPARAMCML) ,J) f JSly3) »MLSl,3)t 
£  C (SYSNAMCMfMM) ,MMS1,4) tMS4v6)  » 

£  ( CIQUALT (IPARAM(PL) tJ),Jsl,3) ,MLS4,6) » 

C  ( (SYSNAMIMrMM) ,MMS1 ,4 ) »MS7,9)  , 

£  ( (ICUALTC IPARAM(ML)f J) » JSI r3) ,ML  =  7,9)  , 

£  (SYSNAM(1Q,MM),MMs1,4),(I0UAlT(1PAPAM(10)»J)»Js1,3) 

RETURN 

1930  00  1931  LS1,NSYS 

IF  (PARAM(II,L) .£0.0)  PA R A M 1 ( L ) S INO 
IF  (PARAMCIItL) .£0. 1  )  P A RA M 1 ( L) S I YES 

1931  CONTINUE 

WRITE  (ITY0UT,27)  C C SYSN AM (M ,MM ) ,MMSl , 4 ) , ms  1 , 3  )  . 

£  (PARAMICD.LSI,  3),(  I  S  Y  SN  A  M  (  M  ,  MM  )  ,  MMSl  ,  4  )  ,MS4,6  )  , 

C  (PARAMl (L) »L  =  4,6  )  , (  ( SYSNA M C M ,MM ) ,MM  =  1,4 ) ,Ms7,9  )  , 

£  f PAR A  Ml IL),LS7,9), ( SYSNAM ( 1Q,MM ) ,MMzl ,4 )  , 

C  PAPaMIIIO) 

RETURN 

C 

C 

C  FORMAT  STATEMENTS  *»* 

C 

1  format  (1X,1H«,2(12X,4A4) , 1 2 X . 1H«/ » 1 X , IH* » 2 ( 1 2x * F 1 6 . 3 ) 1 12Xt 1H»  ) 

2  FORMAT  ( IX, 1H»»2( 12X t 4A4 ) , 12Xt IH*/ f IXvlH*. 14X t 3A4 ,16Xr 3A4 t 
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C  14X,1H*) 

3  rORHAT  1 12Xf  «t  A4)  tl2X,  IH*/  ,IX,1H*,18X,A3,25X»A3,19X,1H*) 

4  format  ( IX, 1H», 3(5X,4A4) ,5X, 1H*/ , 1X,1H»,3 ( 5X,F16. 3 ) »5X  ,  IH*  ) 

5  format  (lX,lH*,3(5X,4A4),5X,lM*/,lX,lH*,7X,2(3A4,9X),3A4,7X,iH*) 

6  format  {iX,lH*,3(5X,4A4)  ,  SX  ,  1 H*/ ,  1  X  ,  1 H*  ,  H  X  ,  2  (.A  3 , 18X),A3,12X,1H*) 

7  format  (lX,lH*,3t5X,4A4)  ,5X,IH*/,1X,1H*,3(5X,F16.3)  ,5X,J,Hm/, 

L  1X,1H*,68X,1H«/,  1X,1H«»26X,4A4,26X,1H«/, IX ,lH*,26XtFl 6.3t 26X  » 1H*  ) 

8  format  (1X,1H*,3(5X,4A4» , 5X , 1H»/ , 1 X » 1H* » 7X , 2 ( 3 A4 , 9X J , 3 A 4 , 7X , 1 H*/ , 

Z.  1X,1H«,68X,1H«/,1X,1H«,26X,4A4,26X,1H*/,1X,1H*,28X,3A4,28X,1h«) 

9  format  (1X,1H*,3(5x,4A4),5X,1H*/,1X,IH*,11X,2(A3,18X),A3,12X,1H*, 

Z  /•lXtlH«,68X,lH«/,lXtlH«,26X»4A4,26X,lH*/tlX,lH«t 

Z  26X,4A4,26X,lH*/.lX,lH*t32X,A3,33XtlH*) 

10  FORMAT  (1X,1H»,3(5X,4A4) , 5X , 1 HM/ , 1 X , 1 HM , 3 { 5 X , F 16 . 3 )  ,5X,1H*/,1X, 

Z  lH*,6ex,lH*/,lX,lH*,2(12X,4A4),12X,iH*/,lX,lH*,2fl2XtF16.3), 

Z  12X,lh*) 

11  FORMAT  (1X,1Hm,3(5X,4A4J,5X,1Hm/, 1 X , 1H* , 7X , 2 ( 3 A 4 , 9X  »,3a4,7X,1H»/, 

Z  lX,lH*,68X,lH«/,lX,lH*,2(12X,4A4),12XtlH*/,lX,lH*,l4X,3A4,l6X, 

Z  3A4,14X,1H*) 

12  format  (1X,1hm,3(5X,4A4) ,SXt IH*/ ,1X,1H*,11X,2(A3,18X),A3,12X,1H*, 

Z  /,lX,lHM,6eX,lH</,lX,lH*,2(12X,4A4),I2X.lH*/,lX,lH*,18X, 

Z  A3,25X,A3,19X,1HM) 

13  format  (1X,1H*,3(5X,4A4) ,5X , IH*/ , 1 X , 1H* , 3  t 5X , F 16 . 7 ) ,5X , 1hm/,1X , 

Z  1h>*,6SX,1H*/,1X,1H*,3(5X,4A4),5X,1H*/,1X,1H*,3(5X,F16.3), 

Z  5X,1H*) 

14  FORMAT  (IX,1H*,3<5X,4A4) , S X , 1H*/ , 1 X , 1H* ,7X , 2 ( 3 A4 , 9X ) ,3A4,7X,1H*/, 

Z  IX  ,1H*,68X,  lH»/t  IX,  1H*,3(  5X  ,4A4  )  ,5X,  IH*/  ,  1X»  1H>*»7X  ,2  C  3A4 , 9X)  , 

C  3A4,7X,1Hm) 

15  format  <1X,1H4,3(5X,4A4)  ,  5X  ,  1H4/ ,  1 X  ,  1H*  ,  1' I'X  ,  2  (  A  7 , 1  8  X  )  ,A7,12X,lH*/, 
Z  1X,1H*,68X,  IH*/,  IX,1H*,3(  SX,4A4  ,  5  X  ,  1 H*  /  ,  I X  ,  1 ,  1 1  X  ,  2  (  A  3 , 1  8  X  )  , 

C  A3,12X, 1H») 

16  format  (1X,1H*,3(5X,4A4),5x,1H*/,1X,1H*,3(5X,F16,3),5X,1H*/,1X, 

Z  1H»,68X, IH*/ ,lX,lH*,3(5X,4A4),5X,lH*/,lX,lH*,3t5X,F16.3)^5X, 

Z  1H*/,1X,1HM,68X,1HM/,1X,IH*,26X,4A4,26X,1HM/,,1X,IH»,26X, 

Z  F16.3,26X, IH*) 

17  FORMAT  ( IX, IH*, 3 (5X,4A4 J ,5X,1H*/, IX, IH*, 7X,2(3A4 ,9X >  ,3A4  , 

Z  7X,1H*/,1X,1H*,68X,1H*/,1X,1H*,3(5X,4A4),5X,1Hm/,iX,1H*, 

Z  7X,2(344,9X),3A4,7X,1Hm/,1X,1H*,68X,1H*/,1X,1H4,26X,4A4, 

Z  26X,1H*/,1X,1Hm,28X,3A4,28X,1H*) 

18  FORMAT  nX,lH*,3(5X,4A4J,5X,lH*/,lX,lH*,llX,2(A3,18X),A3,12X,lH*/, 

Z  IX ,1H*,68X, IH*/, IX, IH*, 3( 5X ,4A4 ),5X,lH*/,lX,lH*,llX,2(a3,18X), 

Z  A3,12X,1H<«/,1X,1H*,68X,1H*/,1X,1H*,26X,4AH,26X,1H*/,1X,1H*, 

Z  32X,A3,33X,1H*) 

19  FORMAT  (1X,1H*,3<5X,4A4) ,SX, IH*/ ,1X,1H*,3(5X,F16.3),5X,1H*/,1X, 

C  1H*,68X,1H*/,1X,1H*,3(5X,4A4),5X,1H»/,1X,1H*,3(Sx,F16.3), 

Z  SX,1H*/,1X,1H*,68X,1H*/,1X,1H*,2(12X,4A4),12X,1H*/,1X,1H*, 

Z  2(12X,F16.2) ,12X,1H*) 

20  FORMAT  (1X,1H»,3<5X,4A4) ,5X,1H*/ ,1X,1H*,7X,2(3A4,0X),3A4,7X,1H*/, 

t  1X,1H*,68X,1H*/,1x,IH*,3(5X,4A4),5X,1H*/,1X,1H*,7X,2«3A4,9X), 

Z  3A4,7X,IH*/,1X,1H*,68X,1H*/,1X,1H*,2(12X,4A4),12X,1H*/,1X, 

Z  1H*,14X,3A4, 16X,3A4, 14X ,1H*) 

21  format  |1X,1H*,3(5X,4A4) ,5X, IH*/ ,1X,1H*,11X,2(A3,18X),a3,12X,1h*/, 

Z  lX,lH*,b8X,lH*/,lX,lH*,3lSy,4A4),5X,lH*/,lX,lH*,llX,2<43,l*»X),«3, 
C  12X,lH*/,lX,lH*,68X,lh*/,lX,lH*,2(l2X,4A4),12X,lH*/,lX,lH*, 

C  18X,A3,25X,A3, 19X, IH*) 


22  FOR-AT  flX,lH*,3i5X,4A4) , 5 X , 1 H*/ , 1 X , 1 H* , 3 « 5X , F 1 6 . 3 ) ,5X»1H*/,1X, 

L  lH*t68X,  lH*/,iX,  IH*,  3(SX»«tA4l  ,5X,lH*/,lXtlH*,3(5X,F16.3)tSX, 

t  lH*/tlX,lH*,68X,lH*/»lX,lH*,3(SX,4A4) ,5Xt 1H»/,1X,1H*, 

L  3(EX,F18.3)t5X,IH*) 

23  FORMAT  (lX,lH*,3(SXt4A4) t 5 X , 1H«/ t 1 X , 1 H* , 7X » 2 ( 3 A4 ^9 X ) ,3A4,7X,1H»/, 

C  1X,1H»,68X,1H«/, 1X,1H*«3(SX,4A4) tSX,lH*/tlX»lH«»7X»2( 3A4t9X) t 

C  3A4,7X,1H*/, 1X,IH*,68X, 1H*/,IX,1H9,3{5X,4A4) tSX.lH*/, IX,  IH*, 

C  7X,2(3A4,9X) ,3A4,7X, 1H») 

24  FORKAT  (1X,1H«,3(SX,4A4) , S X , 1 H*/ , 1 X , 1H* , 1 1 X , 2 ( A 3 , 1 8 X ) , A 3 , 1 2X , 1 H* / , 
C  lX,lH*,6eX,lH«/,lX,lH*,3(SX,4A4),SX,lH*/,lX,lH*,llX,2(«3,18X), 

e  A3,12X,1H«/, 1X,1H*,68X,1H«/,1X,1H«,3(SX,4A4) ,SX,1H*/,1X,1H*, 

C  llX,2(A3,iex),A3,12X,lH*) 

25  FOR>*AT  (1X,1M*,3(5X,4A4J  ,  5  X  ,  1 H*/ ,  1 X  ,  1 H*  ,  3  (  5  X  ,  F 16 . 7  )  ,5X,  lH*/,lXt 
C  1H*,68X, 1H*/,1X,1H*,3(SX,4A41 ,SX,1H«/,1X,1H*,3(5X,F16.3)  ,SX, 

C  IH*/, IX, 1H*,68X, IM*/, IX ,1H*,3( 5X,4A4 ) , 5 X » 1 H*/ , 1 X ♦ 1 H*, 

L  3(5X,F16.3I ,SX,1H*/, IX, 1H«,68X,1H*/,1X, 1H*,26X,4A4,26X.1H»/, 
t  1X,1H«,26X,F16.3,26X,1H>*) 

26  format  (1X,1H*,3(5X,4A4) , 5 X , IH*/ , 1 X , IH* , 7X , 2 ( 3A4 , 9X ) ,3A4,7X,1H«/, 

I  1X,1H*,68X,1H«/, 1X,1H»,3( SX,4A4 ) , SX , 1 H*/ , 1 X , 1 H* , 7X , 2 ( 3 « 4 , 9X ) , 

C  3A4 ,7X,IH»/ , 1X,1H*,68X , IH*/ , IX , IH* , 3 ( 5X , 4 A4 ) , 5X , 1 H*/ , 1 X , 1 H* , 

C  7X  ,2( 3A4,9X ) .3A4, 7X, IH*/, IX ,1H*,68X, IH*/ ,1X,1H*,26X,4A4,26X, 
t  lH*/,lX,lH*,2aX,3A4,28X,lH*> 

27  FORMAT  (1X,1H*,3(SX,4A4)  ,  5X , 1 H*/ ,  IX , IH*, 1 IX , 2 ( A  3 , 1 8X ) , A  3 , 1 2X , 1 H* / , 
C  1X,1H*,6  8X,IH*/,1X,1H*,3(SX,4A4)  ,5X,IH*/,1X,1H*,UX,2(  A3,18X)  , 

C  A3,12X,1H*/, IX, 1H*,68X, IH*/ ,IX,1H*,3(5X,4A4 ) , 5X , 1 H*/ , 1 X , 1 H* , 

C  11X,2( A3,ieX ) , A3,12X,1H*/ ,1X,1H*,68X,1H*/, 1X,1H*,26X,4A4, 

C  26X,1H*/,1X, 1H*,32X, A3,33X,1H*) 

ENO 

C  ••**•*«*•***«•*•****«*«*«**«»**«****»*«*»*»****•************«**»» 

c  •*•*•••*•••••**•••**•*****•••*••***••*•*••*****•**•••••*•**•••*•* 

c 

SUBROUTINE  PAGER  (LINEtLIMlTJ 

C  TEKTRONIX  PAGING.  REMOVE  IF  NOT  USING  A  TEKTRONIX  TERMINAL. 

C 

IF  (LINE^LIMIT.LT.34)  RETURN 
LINESC 

PAUSE  "TYPE  GO  FOR  NEXT  PAGE" 

RETURN 

ENO 
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PPOC-RAM  UPPP  (INPUT, OUTPUT, HDRtOU“l,DUM2,UPPfTAPElC:Hr;R, 

C  TAP£12=UPP,TAPE2=OUTPUT  ,  TAPES  =  IN0UT,  TAPE  13  rCUf^l,  TAPE  14  ^CU^'2) 

Cm*mm*mmm***m***m*m***m*m***mm*m9**»**mt,^*w*m*»*m9*»*m**m*mm»m*** 
Zmm  »• 

C«  USER'S  PREFERENCE  PACKAGE  PROGRAf-  >* 

C*  THIS  POOGRAM  CREATES  THE  USER'S  PREFERENCE  PACKAGE  FOR  SSHP  # 

C**  ** 

Cmm*m*m*m*m*****m*m***m*m**m*m*m***m**m****m*m**m***n***m*m*****m 

C 

common  /UMTNO/ITTYIN  ,ITY0UT,  IHDR  ,  IUPP,IDUM  1,  ICL’M2 
COMMON  /HORl/SYSOSN ,NSYS ,NSUE1 ,NSUB2, NPARM, 

C  SYSSET(4),SB1SET(4),SE2SET(4),SYSNAm{10,4), 

C  SU?lNM(10,4>,SUa2NM{ia,10,4),PAfiNAM(40,4), 

C  NijM(tiC),  RATEO  (hC  )  ,YN,{4CJ  ,  INVERT  (  4CJ  ,  INDEX 
COMMON  /RTNG/  R A T TNG ( SC  ,  40  ) 

COMMON  /HCR’/  NSCEN,SCN0SC(25,15) 

INTEGER  SYS0SN,SYSSET,SB1SET,SB2SET,SYSNAM,SUB1NM,SUB2Nm, 

C  PAPNAM,SCNOSC, RATED,  YN 
C 

c 

DATA  IEN0/3HEND/, ICRTE/4HCRTE/, IA0D/5HADD/, ILIST/4HLIST/ 

C 

NPAGE=C 

LINEr34 

CALL  PAGEP(LI\£,N®AGE,a) 

REWIND  lUPP 
REWIND  IHDR 
REWIND  IDUMl 
REWIND  I0UM2 
ITERntG 

c  POINT  OUT  HEADING  •** 

WRITE( ITYOUT, 4) 

C  •**  PRINT  CUT  NOTE  ON  COMMANDS  *•* 

WRITE  (ITYOUT,!) 

C  ***  READ  IN  /HO®!/  *** 

CALL  PEADRl 

C  *•»  ASK  FOR  COM“ANj  *»• 

WRITE  (ITYOUT, 2) 

READ  (ITTYIN,3)  lANSR 
IDO  IF  ( lANSR .EC . lEND  )  GO  TO  1000 

IF  ( lANSR  .EC . ICRTE  )  CALL  CREATE 
C  •**  READ  IN  /H0P2/ 

IF ( lANSP .NE.ICRTE. AND .ITERN.EQ.O )CALL  RE  A  DR  2 
IF  ( IANSR  .EC . lADO )  CALL  ADO 
IF  ( IANSR  .EO  .  ILIST  )  CALL  LIST 
■  RITE  (ITYOUT, 2) 

READ  (ITTYIM,3)  IANSR 

ITEPN=1 

GO  TO  100 


FORMAT  statements  *»* 

1  format  (iy,4eHNCTE;  THE  commands  CRTE  c  acD  CAN  BE  ISSUED  CNLY, 
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I  12H  ONCE  DUR1NG/1X,35HA  SESSION  C  YOU  CANNOT  ISSUE  A  LIST, 

C  2&M  SEFOOE  YOU  CREATE  THAT  FlLE//> 

C 

2  FOR“'AT  (  IX,  1uHCOMMAND-->  J 

3  FOR*'AT  (A4) 

4  FCR*'AT(lHl,72(lH*),/iX,19X,33HUSER*S  PREFERENCE  PACKAGE  PRCGRAH, 
t  /,1X,72(1H«)//) 

C 

C 

IC3C  CONTINUE 
STOP 
END 
C 

C»«««*«*«*«*«***«*«««*«*«*«*«*>««»«*««******««*»«*»*»*i»»«  *«**•**« 

C 

elock  data 

C  -initializes  UNIT  NUHEERS  FOR  I/O 

c 

C  ««*:»*«*«*««•*««»*«•««««««***««»«*««»««*«***»***»  »*»**«•****»«**» 

CCM-ON  /UNITNO/  I TT  YI N  ,  I  T Y OUT  ,  IHOP  ,  I UPP  ,  I  CU H  1 ,  I CU*' 2 
CATA  ITTYIN, ITYCuT,lHOR,lUPP,IOUKl,IOUM2/5,2,  1C, 12, 13, 14/ 

END 

C 

SUBROUTINE  p£AOR1 

C  -THIS  *^OCULl  READS  IN  THE  HEADER  FILE  AND  FILLS  THE 

C  COMMON  BLOCKS  /HDRl/  AND  /OB/ 

C 

c 

COM'^CN  /UNITNO/  ITTYIN,ITYOUT,lHOP,IUPP,ICU>'l,  ICU“2 
COMMON  /HORI/  SYSDSN,NSYS,NSUSl,NSU52,NPARM,SYSSETt4) , 

C  SaiSET(4),So2SET(4),SYSNAM(12,4),SUBlNM(lC,4), 

£  SUP2NM{  ID,  10,4  )  ,OARNAM  (40 ,4  )  ,NUM(4C)  ,RATED(4-),Y*'(4„), 

C  1NV£RT(4C1 .INDEX 
C0MMON/OB/C9NAME ( 4  ) 

IVTFCER  SYS0SN,SYSSET,S91SET,S82SET,SYSNAM,su91NM, 

C  SU92NM,PARNA«,RATE0, YN,CBNAME 
C 

RE-IND  IHOR 
C 

REAOdHOR,!!  (  08  NAM£  (M  )  ,M:  1 , 4  ) 

READ  <IH0R,1)  SYSOSN 

READ  (IHOR, 2)  NSYS 

READ  (IHDP,2)  NSuPl 

READ  (IHDR,2»  NSu®2 

READ  (IHDP,2)  NPA^M 

REAP  (IHOR, I)  (SYSSET (I J ,1=1 ,«J 

IF  ( SYSOSN.GE .2 )  efc;fto  (IHOR, 2)  ( SP 1 SE T ( I ) , I = 1 , 4 ) 

IF  ( SYSOSN .EC  .3  )  P£AD  (IHDR,3>  ( SB 2SE T ( I J , I = 1 , 4 » 

C 

DO  ICO  r=l,NSYS 

PEAL  ( IHOR , 3 )  ( SYSNAM (I ,J  ) , j=l ,4  ) 

IDO  CONTINUE 
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c 

If  cr^suei  .tC.G)  50  TO  <430 

c 

CC  ?00  I  =  1,N'SUb1 

P£AC  (lHDfi,3)  (SUfilNM(I,J),J=l,i4) 

2C5  CONTINUE 
C 

ir  (Nsu92.tc.a»  50  to  4ac 

c 

CC  TCC  KZI.NSUBI 
00  301  I=l,NSue2 

READ  (IHOR,?)  (SUB2NK(K,I,  J)  ,  J=ly<<  ) 

301  CONTINUE 

300  CONTINUE 
C 

400  CONTINUE 
C 

DC  4J0  T=1,NP4RM 

P£AC  (IMPS, 4)  (  P4RNAN  (I  ,J  )  ,  J=1 , 4  )  tNU^i  (  I  )  ,R  ATED  (  I  ) 

C  iNVEPTdJ 
C 


500 

CONTINUE 

c 

c  »«* 

format 

statements 

c 

1 

format 

(ID 

2 

FORMAT 

( 12) 

7 

format 

(  4A4  ) 

4 

format 

<4AH, I  1,11,11,11) 

c 

RETURN 

END 

c 

c 

SUSPCUTTNE  CREATE 


YN  (  I  )  , 


C  -THIS  “ODULE  ALLOTS  ThE  USER  TO  INPUT  THE  SCENARIO 

C  DESCRIPTIONS  AND  NUMBER  OF  SCENARIOS  AND  WRITE 

C  OUT  THt  NE*  HEADER  FILE,  THEN  INPUT  RATING  VALUES. 

C 

C*mmmm**m*m*m*»***mm*mm*m***mmm*m***m***m*m**m************m*m*m** 

C 

COMMON  /UNITNO/  IT T Y IN , I TY OU T , IHOP , I UPP , I PU m  1  , I DU“ 2 
COMMON  /HORI/  SYSOSN ,NSYS ,NSUB 1 , NSUE2 , NPARM , SYSSET t u  )  , 

L  S31SET(4),SS2SET(4),SYSNAMflC,4),SU31NM(10,4),SUP2NM(10,lD 
C  PAPNAM(4C,4)  ,NUM  <4G),RATED(4D),YN(40),INVEPT(4'“)  .INDEX 
COMMON  /H0R2/  NSCFN,SCN0SC(25,15) 

COMMON  /RING/  RATING(5C,*'C» 

INTEGER  SYSf'SN,SYSSET,SeiS£T,SS2S'’T,SYSNA*',SUPlN'M, 

C  SUP2NM,PiRNAM,P ATEO, YN.SCNPSC 
C 

Cmmm  NO.  OF  SCENAOIOS 
WPITE  (ITYOUT.l) 

REAC  (ITTYIN',*)  NSCEN 


H 
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C»**  SCENiKiC  CESCSlpTIONiS  ••• 

:c  iLO  i=i,MSCtN 

WRITE  (ITYCUT.Z)  I 

?EiD  {ITTy:N,H)  (SCNDSClI  ,•<)  ,Mri,l5) 

1C3  continue 

C 

Cmm*  WRITE  OUT  /HCRl/  CN  TO  NEW  FILE 
CALL  WRTR 

C.**  PERFORM  PAIRED  COMPARISON 
CALL  COMPAR(l) 

C 

c  mm*  FORMAT  STATEMENTS  *** 

1  format  (  1X,22HEN‘TER  NO.  OF  SCENARIOS/* 

3  format  (IX.USHENTER  SCENARIO  DESCRIPTION  FOR  SCENARIO  NO., IT/) 

4  FORMAT  (1EA4) 

RETURN 

END 


SUBROUTINE  WRTR 

-THIS  MODULE  -RITES  OUT  THE  NEW  HEADER  FILE  WITH  T^E 
NEW  SCENARIO  INFORMATION. 


COMMON  /UNITNO/  ITTYINjITYCUT.IHOPtIUPP.ICUMl.IDUMZ 
COMMON  /HORl/  SYSOSN,NSYS,NSUpl,NSU82tNPAPM, 

C  SYSSET(4),S31SET(4),S62SET(4),SYSNAM(10,4), 

0  SUP1NM(10,“) ,SUfa2NM {lC,10,4J,PARNAMt40,4), 
t  NUM  (40  ,paTED(40  )  ,  YN  (40)  ,  INVERT  (40  ,  INDEX 
CCMM0N/HDR2/NSCEN,SCN0SC (25, 15) 

C0MM0N/0B/D9NAME ( 4  ) 

C 

INTEGER  SCNDSC,06NAM£ 

C 

INTEGER  SYSDSN,SYSSET,SB1SET,S82SET,SYSNAM, 

C  SUP1NM,SU&?NM,PAPNAM, RATED, YN 
C 

REWIND  IDUMl 
C 

write ( IDUMl , 3)(DBNAM£(M),m:1,4) 

C  •**  CASE  I, II,  OR  III  mmrn 
write  (IDUMl, 1)  SYSOSN 
C  number  of  systems  m*m 

WRITE  (IDUMl, 2)  NSYS 
C  number  of  level  I  SUBSYSTEMS 

«PITE  (IDUMl, 2)  NSuBi 
C  mmm  NUMBE®  OF  LEVEL  2  SUBSYSTEMS 
-rite  (IDUMl, 2)  NSUB2 
C  mmm  NUMS^R  OF  PARAMETERS  •mm 
write  (IDUMl, 2)  hOaRM 
C  SYSTEM  SETNAmES 


WPlTi:  (I0UMl,3)  (SYSSCTd)  ,1:1,4) 

!*■  <SYS0SK.P.£.2)  WRITE  «I0u-l,3>  (  S«  1  SET  (  I )  ,  1 :  1  ,  4  ) 

IP  (  SYSOSN.Ew  .3  )  WRITE  (IRU*'l,3»  (  S  B2  SET  t  I  )  ,  I  :  1 , 4  » 

C 

C  SYSTt“  ’NAHf 5  ••• 

DC  lUC  I:i,NSYS 

WOITE ( lOUMl ,3 ) tSYSN4H(I,J),J:l,4) 

IDO  CONTIMUE 
C 

IF  (N'SUbl  .EQ  .0  >GO  TO  400 
C 

C  LEVEL  1  SUBSYSTEM  NAMES  ••• 

CO  2C0  lri,NSUol 

i.PITE(IDUMl,3)(SUElNMCl,j),J=l,4) 

2C0  CONTINUE 
C 

IE  «NSU»C.E0.D)  go  to  4CC 
C 

C  LEVEL  1  subsystem  NAMES 

00  ICG  k=i,NSUb1 

GO  3G1  L:l,NSue2 

wRITE(IDUMl,I)(SU62NM(K,L,J),jri,4) 

301  continue 

300  continue 
C 

400  CCNTINUP 

c 

c  PARAMETER  names  *** 

OC  5CC  I=1,NPAR“ 

WRITE  (IGUMI.h)  (P  ARNAM  ( I ,  J  ) ,  j:i ,  h  )  ,  NUM  (  I  )  ,  R  ATED  f  I  >  , ''N  (  I )  , 
t  INVEPTd) 

500  CONTINUE 

C 

C  »*•  NUMEEP  OE  SCENARIOS 
wPIT£dOUMl,2)NSCEN 
C 

C  SCENARIO  DESCRIPTIONS  ••• 

CO  60D  I:i,NSCtN 

«RITEdDu‘'l,5)(SCNCSCd,M),M:i,15) 

500  CONTINUE 

c««*  format  STATE“£NTS 

c 

1  FOR*'AT  dl) 

2  format  (12) 

3  format  (4A4) 

4  FOR-AT  (4A4,Il,Ii,Il,Il) 

5  F0RMATd5A4) 

C 

RETURN 

END 

C 

c 

c 
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SUdOOUTIN^  CCMPAk 

C  -THIS  •'ODULE  ALLOWS  THE  USER  TO  INPUT  THE  oaRAHETE® 

C  RATINGS  AND/OR  PERFCRH  ThE  PAIRED  COMPARISON  ANALYSIS 


COMMON  /UMTNO/  ITTYIN.ITYCUT.IHQP.IUPP.ICUMI^ICUMZ 
COMMON  /HDRI/  SYSDSN,NSYS,NSUBl»NSUe2»NPARM, 

L  SYSSET(‘*),SS1SET(H),SB2SET{4),SYSNAMC10,4), 
t  SUE1NM(1C,4) ,SUa2NM (lC,ia,4J,PARNAM|40,4), 

c  nu“(4C),rated(4j),yn  1 40), IN  vert (40), Index 

COMMON  /H0R2/  NSCEN,SCN0SC(2S,1S) 

COMMON  /RTNG/  R A T I nG ( 5 C  ,  40  ) 

C 

DIKPNSION  IC0UNT(4C),I0RCER(4C) 

INTEGER  SYS0SN,SYSSET,SeiS£T,Sb2SET,SYSNAM,SUSl'‘'M, 

C  SUE2NM,PARNAM,RATE0,YN,SC.\0SC 

c 

c 

DATA  ICHARa/IHA/ , ICHARB/ IHO/ 

DATA  TYES/3HYES/ 

C 

C  USER  GIVEN  CHOICE  OF  ENTERING  RATINGS  IMMEDIATELY 
C  Ok  performing  THE  COMPARISON  ANALYSIS 
WRITE  (ITY0UT,S) 

READ (ITTYIN,9  )IANSR 

NPAGE=0 

LINE=I4 

call  PAGE?(LIN£,N0AGE,C) 

IF(IANSP.Em.1YES)G0  TO  SCO 
00  ICC  J=1,NSCEN 
DO  lie  KK=1,NPA0M 
TCOUNT (KK ) =0 
115  CONTINUE 
C 

c  m*m  ORINT  CUT  SCENARIO  DESCRIPTIONS  *** 

WRITE  (ITYOUT,!)  (SCNDSC( J,M) ,m=i, 15) 

LINE=: 

DC  ICO  I=1,NPARM. 

CO  210  Il=i,NPARM 

IF  (li.LE.I)  60  TO  210 
C  •**  PRINT  OUT  parameter  NAMES 
NPA6E:o 

CALL  PA5ER (LINE  ,NPAGE,3) 

WRITE  (ITYOUT, 2)  I C H A R A , ( P AR N AM ( I , M ) , M= 1 , 4  )  , I C H AR B  , 
C  (PARN8M{ II  ,M1  )  ,M1  =  1  ,4) 

°LAD  (ITTYIN,3)  ichap 
LINE=LIN£*2 

C  ADD  UP  the  number  of  times  CHOSEN  ••• 

IF  ( ICHAP  .Ea  .  ICHARA  )  ICCUNT(I)rICCLNT(T)^l 
IF  ( ICHA®  .EC.ICHARE  )  ICOUNT ( 1 1 ) rICCUNT ( II  )  ♦! 

21C  CONTINUE 

23C  CONTINUE 

C 


C  0-u?R  TH£  PflSSM£T£SS  BASED  OK  TM*  OF  TIMES 

C  CH^SE*'-  (hIGM  TO  LC«) 

CALL  LARGE  (  ^?  AR*' ,  I  COLKT  ,  lORDE"  ) 

WRITE  (ITYCUT,u) 

C  ?  =  IKT  CUT  parameters  In  OBQE?  «ITh  ThE  No“BE=  CF  TI“ES  ChCS''\ 

C  ANC  -EAC  IN  RATINGS 

rc  I-'G  1=1,NOAOm 
K  =  :ORPER(I  ) 

WRITE  (ITrOUT.S)  (  P  A  RN  am  (  K  ,  ,  M=  1  ,  A  )  ,  T  CCUN  T  (  K  ) 

REAE  (ITTYIN',61  RATING  (J,K) 

IZZ  CONTINUE 

C 

120  continue 

c 

c  maw  .RI^e  out  UPP  jSTA  RILE 
CO  ‘»oC  k:i,NSCEN 

uo  ucD  in.NPAs*' 

URITE(Ijl'M2,‘’lRATING{K,I) 

42u  continue 

PE.IND  IDUM? 

RETURN 

ECO  2C  600  Jri.NSCEN 

wPIT£(ITYOUT,l)(SCNOSC(J,M),*'  =  i,lE) 

00  7C0  1=1,  N PAS*' 

«PITE(ITYCuT,1w)(PASNAM(I,‘'),«=3,u) 

REAr(ITTYlN,b)SiTlNG(J,IJ 

7ca  continue 

NOAGE=C 

LInE:34 

CALL  RAG£R(LINEfr,OAG£,C) 

6Ca  continue 

OC  SCO  K  =  l,‘oCEN 
:o  “CO  lri,NPAS‘' 

WRIT£(I0UM2,7)RATING(K,I) 

SCO  continue 

REkINC  IDUMC 
RETURN 
C 

£•••  PC=MAT  STAT^wentS  •a* 

C 

1  FORMAT  (12X,15A4) 

2  format  { 1 X,  1 X , A  1  ,  uH  —  /  ,A1,uh  --  ,4i4,/> 

3  FGR-AT  (Al) 

4  format  (lx,// ,ix,43hrate  the  parameters  •ith  values  F^C"  : 

5  format  ( 1 X, /IX , 4 a4  ,oh  (CHOSEN  fIZ,7H  TIMES),/) 

6  format  (F5.3) 

7  format  (iX,f5.3) 

6  format  (  1 X  ,52HC0  YOU  »ISh  TO  SkI®  "^HE  oaIR'D  CCmPACSTC*  "  (yES/ 

r  / ) 

9  FCRMAT(Ai) 

12  FORMAT  (  1X,414  ,/  ) 

C 

ENO 

C 
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c 
c 

r 

c 
c 

COMMON  /UNITNO/  ITTYIN  ,I  TYCUT,  m::^  ,  IUPP,  ICU^*!  I  :ru*'2 
CCMMQN’  /HDRI/  SYS0S*.',NSYS,f.<UPl».\SU52,NPAPM, 
r  SYSSET(4),'BlSiT(H»,S32SET<tt),SYSN*M(lC,‘<), 

C  Su5  1*.M(12,‘‘),SUo2N»‘(lC,lC,‘t),PARNAP(<4C,4), 

E  ^u►‘(‘*C),=’A•fiC(Al:),Y^(<♦C),I^VERT(‘»0), INDEX 
COK^'CN  /HnRZ/  NSCEN,SCNDSC125,15» 

CCK^C'’  /ring/  RATINGISD.^C  ) 

c 

I'.  T'^GER  S  YSrSN.SYGSET  ,  seiSET,Sb2S!:T,SYSNA‘',SUPl^'‘', 

I  SJ?2NM,PAftNAY,RAT£0,YN,SCNDSC 


jub=>cutine 

-THIS 


/■OD 

routine 


allows  the  US£P  to  add  SCENA^IcS 


■»**  NC.  CP  SCENAOIOS  ADDING  •** 

.rite  (ITYOUT,!) 

R^AO  (ITTYIN,*)  ISCEn 
K.rlSCEN 

NClD=NSCEN  ♦  1 

»«»  reap  in  NE«  SCENAPIC  DESCRIPTION*  *** 

:c  IIP  I:l,K 
L=I  ♦  NSCEN 

WRITE  (I^yCuT,?)  L 

PiACCTTYIN,**)  (SCr,DSCatH)tHrl,lS) 
30  CCNTIvlE 

NSCEN  =  ISCEN  •»  NSCf'N 
•••  *=IT£  cut  header  FILE 
call  WR'fR 

enable  user  to  EnTEO  PARA*'tTER  RATINSS 
call  CC‘'PAR  (NOLO  » 


«»«  COPHAT  statements  ••• 

FORMAT  (1X,79HH"i«  HANY  SCENARIOS  DO  YOU  WISH  TC  APD  ?/) 

format  (12) 

format  (  1 X,  “SHENTER  SCENAPIC  DESCRIPTION  FOR  SCENARIO  N''.,I2,/) 
format  (15AH) 

RETURN 

END 


SU  =  ROUTIN'‘  LARGE  (  N  P  A  R  m  ,  I  C  GUN  T  ,  I  OP  E  R  ) 

-  this  routine  FINOS  THE  LARGEST  NURSEF  CF  TlYiS  A 
parameter  was  chosen  ruRI..C-  The  PAIREC  CCMD  A=  is  I  . 
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c 

CIM^NSION  IC0UNTl4C),!CM(HC)*I0n0t=(4C) 

C 

C  TPAN'SF£D  ^u^'bERS  TO  NE«  tPdtr 

LC  IZC  Iri.NPAR- 

rcM  ( I )  ncouN'T  ( I ) 

iza  CCNTIS'UE 

c 

EC  ZQC  K  =  1,K'PaK“ 

? IG=-1 

iNDICErO 

C  ■»*»  CMECfs  POk  LiRGEST  VALUE  “»• 

TO  zrc  lri,woAPM 

IP  (  ICNT  (  I  )  .GT  .BIG  )  6C  TO  ZT'S 
GO  TO  3:g 

305  =IG:ICNT(I) 

IVDICE=I 

3CC  CONTINUE 

IP  (  T'.OICE  .EO  .T  )  IN'CICE=K 

C  ONCE  LAPC'ES'"  VALUE  POUND,  MAKE  -1  SO  ^’ETT  HIGHEST  IS  fCUNT 
rCNT(lNDICE)r-l 

C  KEE®  ThiCK  OP  OPQER  (HIGH  TO  LOW)  OP  pa^A-ETEPS 
lOPCER (K ) ilNOICE 
CONTINUE 


RETURN 

ENu 

C 

C 


C 


SUBROUTINE  LIST 

c  -THIS  routine  allows  the  use®  to  print  the  para-etep 

C  RATINGS  POri  EACH  SCENARIO  PLUS  THE  ?VERAGE  RATING 

C  POP  each  paPAMETER. 

c 


c 


COMMON  /unitno/  ittyin,itycut,ihd°,iurp,i!:umi,I''umo 

COMMON  /HDRI/  SYS0SN,NSYS,NSL'F1»NSUEZ,iNPARM  , 

E  SYSSET(4),SBlSET(H),Sc2SET(a),SYSNAM(ir:,u), 

C  SU°i^'M(lT,4),suD2NM(lG,l^:,4),PARNAM(40,4), 

K  NUM(4C),rA'":D(4r),YN(4C),lNVERT(4C),lNDEX 
COMMON  /rics:/  NSCEN,SCNCSC(25,15) 

COMMON  /RTNG/  R A T ING ( 5 C , 4C  ) 

CCMMON/Ce /GP  N AME  (  4  ) 

INTEGER  SYSrSN,SYSSET,S=lSET,SG2SET,SYSNAM,suPl‘;M, 

C  S  L=2N  M, P -•  R  NAM, bated,  YN, SC  NC  SC, Oc  name 
DIMENSION  SUM(SD),AVE(5C),PSUm(4C),pavE(4C),I(V'’N‘'(15) 

DATA  SUM/5G’"0/,«vE/EC*L/,PAVE/40«-r/,P5UM/4C*C/ 

DATA  IAVENM/hH  ,4h  ,4H  AV,4H''RAG,4HE  V',uhlUES.4H  RC 

£  4h  EAC,4HH  P A , 4nR AME , 4H ter  ,4h  ,HH  ,4h  ,4H  / 
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c  SUM  tP  PATIVGS  '‘CO  AVERAGE  *** 

CC  2k,r  I  =  1,NSCEN 
00  25C  J=1,NPAR‘' 

SUKdjrsUMd)  ♦  RATiNGd.J) 

250  CCr^TIN’UE 

AVl ( 1 ) =SU“ ( I ) /NPAPM 
200  continue 

c  AVERAGE  parameter  RATING 

r 

CO  ICC  J=1,NPARM 
PSU'-C  J)=j 
CO  150  I=1,NSCEN 

PSU*'(J)  =  PSU^'(J)  ♦  RATlNGd,J) 

Z50  continue 

PSCENTnSCEN 
PA  VE  (J)rPSu*'(  J)  /RSCEN 
300  continue 
c  wPITE  HEAOIA^G 

C 

CC  ICC  I=1,NSC5N 
NPAGEri 

WRITEdTY0UT,i)(DbNAM£(L99)iL59ri,a),SYSCSN, 

f.  (  SCNCSC  (I ,  “  )  ,N  =  1,  1  =  )  t  I 
c  .CITE  PARAMETER  NAME  AND  RATING 

OO  150  J=1,NPAPM 

-PIT£dTY0uT,2)(PARNAM(j,»*),Mrl,4),PATINGd,J) 

150  CONTINUE 

LINE:34 

call  PAGER(LlN£fNPAG£,CJ 
ICu  continue 

c  .*»  ,PITE  HEACING  FOR  AVERAGE  PARAMETER  RATINGS  **• 

N  :  NSCEN  ♦  1 

wRITEdTYOUT,  1)  (CENAME(L99),L99=l,4),SYS0SN,dAVENM(M‘')  ,YY  =  1,  15)  , 
C  N 

C  WRITE  parameter  names  ANC  AVERAGE  RATINGS  ••• 

CO  400  J=!,SPAR*< 

»PITEdTYCUT,2)<P*KN'AM(J,M),M=l,4),PAvE(J) 

400  continue 
NPAGErC 
L I N  E  =  3  4 

CALL  ®AGEP (LINE ,NPAG£ , C  ) 

C 

C»9*  PCPMAT  STATEMENTS 
C 

1  FORMATdH  ,/f  1X,72(  Ih*)  ,  IX  ,5x,4A4,5X,5hCASE  ,I1,3X, 
f.  25HuSER*S  preference  P  A  CK  AG  E  ,  /  ,  1  X  ,  1  S  A4 , 5  X  ,  £HP  A  G£  , 

L  I0,/,1X,72(1H*)) 

2  format  ( 1 X, /, IX »20X ,4 A4 , 5X ,^5 ,3 » 

3  FrRMA’dx,/tlx,20x,lfc<lH-),5X,5(lw-)f//.lx,2Cx, 

C  13MAVERAGE  V ALUE,bX,F5. 3) 

C 

RETURN 

ENO 
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n 


'i 


I 


wrw 


OOOOfVJ  Of-*  oo  o  ooo 


Q»**m*m»m*m*mmmmv*»mma*»*9**m**m9m»9mmm9***m**»**M»*m-*m'»***»’r*» 

C 

SUSOOUT'NE  crA3R2 

C  -  this  ROuTlN'i  IS  USEL  WHEN  THE  L'SER  WISHES  Tc 

ACD  HOSE  SCFNAkIOS 


CCMMON/UMTNO/ITTYIN,  ITYCUT,  IHOR  ,  lUOP  ,  I  DU  H  1  , 1 !?  U  2 

C0M‘'CN/HDK2/NSCEN,SCNDSC(25,15) 

CCMH0N/PTN5/RATING(S3,m0) 

COMMON /HOP i /S ySDS^ , NS YS ,NSUe 1 ,NSU?2 ,NPAPM, 

£  SYSSET(4),S31SET(4),S£2SET(*»),SYSNAM(1D,U), 

C  SU?1NM(1C,41 ,SUa2NM(lC,10,4),PARNAM(4C,4), 

r  NuM  (40, PAT£Dl4U),YN(4G»,I^4VERT(tta), INDEX 
INTEGER  SCNDSC 

INTEGER  SrSCSN,  S  YSSET  ,  S9  ISET  ,SB2SET  ,SYSNAH  ,  SU'a  INm  ,SUB2 
£  eAPNiM,R4TED  ,  YN 
«*■«■  READ  NUMBER  OF  SCENARIOS  •** 

READ ( THDR , 1 1 NSCEn 
*•*  READ  SCENARIO  DESCRIPTIONS 
CC  ICO  m,  NSCEN 

READ{IHDR,2){SCNDSC(I,M),M=1,15> 

00  CONTINUE 

READ  RATINGS 
CO  2CC  1=1, NSCEN 
00  2C0  J=1,NPAR“ 
oEAD  ( lUPP  ,  orating  (I  ,J) 

CO  continue 


ECS-AT  statements  »*»* 

1  F0RMAT(I2) 

2  format (15*4) 

3  F0RmaT(F5.3) 

C 

RETURN 

E^D 


SUE^OUTTNE  PAGE® (LI NE,NPAG£, LIMIT) 
IF((LINE*LI“IT) .LT. 34) re  TURN 
PAuSE“TYPE  60  FOR  NEXT  PAGE" 

LlNE=D 

NPAGE  =  NPAGt*  1 

RETURN 

END 
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OVE:PL«Y(SSM,a,G) 

PROGRAM  SSM ( INPUTr512 ,0UTPUT  =  £i2,HEA0ER  =  512  tPe  =  512,UPP=E12  , 

C  VPAR‘'Z512,SYSNUM,T  aPES=INPUT,T4P£2  =  0UTPUT  ,  TAPE10  =  H£ADEb, 

C  TAPE12=PP,TAP£ l3=UPP» TAPE 14rvPAR“, Tape  15=5 YSNUM) 

c 

c  ^*m*m*m*mm*^*m**9*m*m*m*m***m*mm*mm*9***mmm*m»»m**m***m9****m*m 

C 

C  MAIN  OVERLAY 

C 

C  DIRECTS  THE  EXECUTION  OF  ThE  OTHEP  LEVELS  OF  OVERLAYS  C 

C  SUBROUTINES 

C 

C  m**m**m*m***mm***mm**»m*m*m*m*m*mmm*mmm*mmmm»*mm»***m*****m***» 

C 

COMMON /HOR 1 /S YSOSN,NSYS»NSb? 1,NSUB2,NPARM, 

E  SYSSET(4),SB1SET(4),SP2SET(4)  , 

E  SYSNAM(1c,4),SUB1NM(2C,4),SUB2NM(1C,1C',4), 

C  PARNAm (MG»4 ) , 

C  NUM(4C!),RATED<40),YN(4C),INVERT(42)»INDEX 

CPMM0N/H0R2/NSCEN,SCNDSC (25,15),INDEX1,ICH0IC 
C0M*'0N/UNITN0/ITTYIN,ITY0UT,  IPPH,IUPPH  ,IPP  ,IUPP  .lyPAR** ,  ISYS 
CCM''CN/PARAMl/N0POMfCHpRM(4a),ABv«‘*C),BELW(40), 

E  RL0mP(4D),HIR(4O),RTO(4C) tTFANG£(40),IS*NO(40> 
C0MM0N/PARAM3/MATPlX(4Q,7fl0) 

C0MM0N/PARA**2/ELI“  (  7, 1C,  40) 

COMMON /P TNG /RATING (40  I 
C0MMCN/PARAM4/S YSNRM (35 , 10 ) 

C0MM0N/RTG/PTING(4G) 

C0MM0N/0B/D8NAME(4) 

INTEGER  SCNOSC 

INTEGER  SYSOSN,SYSSET ,SB1SET ,SB2SET,SYSNAM,SUB1NM,SUB2NM,PA0NAM, 
£  RATED, YN, ELI M, matrix  rCHPRM, CBN AME 
C 

100  REWIND  IPP 
REMIND  IPPH 
RE.IND  lUPP 
REWIND  lUPPH 

READ  IN  FILE  WITH  HEADER  IN  IT  FOR  PARAMETER  PACKAGE 
call  0VERLAY( 3HSSM, 1,0,0) 


m**  USER  CHOOSES  SCENERIO  OR  INPUTS  HiS  OWN  RATINGS 
call  overlay ( 3HSSM , 2, 0,0  ) 
mrnm  POINT  OUT  RATINGS  TAcLE  ••• 

call  ratout 

mm*  CHOOSE  ThE  PaRA“ET£RS  WANTED  IN  THE  DECISIC'>  PROCESS 
call  0VERLAY(3riS5M,3,0,0) 
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c 

C  ELIMINATE  SYSTEM'S  THAT  DO  NOT  QUALIFY  wR  ARE  NOT  WANTED 

C 

call  OVERLAY(3HSS‘'t‘»tO,Q) 

m»m  INVERTS  DATA  SO  THAT  ThE  LOWEST  VALUES  CONSTITUTE  THE  BEST 

value 

call  CVERLAY13HSS»',5,0,Q) 

***  calculate  system  values  £  OfTERHINE  THE  OPTIMUM  SYSTEM 
CALL  0VERLAY{3HSSm,6,0,0) 

determine  sensitivity  £.  UNCERTAInITY  analysts 

call  ANLYSdEXECl 
IFdEXEC.EQ.DGO  TO  IOC 
STOP 
END 


subroutine  ANLYSdEXEC) 


THIS  POUTINE  ALLOWS  THE  USER  TO  ADD  ANY  LOGIC  NEEDED  TO  ANALYZE 
THE  DECISION  £  TO  ALLOW  THE  USER  TO  RERUN  THE  MODEL 


CCM*'0N/PTG/RTING140) 

CCMM0N/HDR2/NSCEN,SCNDSCt25,lS),INDEXl,ICH0IC 

COMMON /UN ITNO/ ITT  YIN ,ITY0UT,IPPH , IUPPH ,IPP»IUPP,IVPARM,ISYS 

CCMM0N/H0Pl/SYSDSN,NSYS,NSUPl,NSLi?2,NPARM, 

C  SYSSET ( 4 ) ,sa ISET ( H ) , SB2SET( 4  ) , 

£  SYSNAM(10,4),5UalNM(20t4),SUB2NM(lD,lDT4>,PACNAM(4n,u), 

£  NUM(uc),RAT£D(4vj)fYN(4D),INVERT(4D),lNDEX 
INTEGER  SYSDSN.SYSSET .SBISET ,SB2SET,SYSNAM, SUB1Nm,SU62NM, 

£  PARNAM , RATED ,YN, SCNDSC 
DATA  IN0/2HN0/ 

lEXECrO 

xRITEdTYOUT,  1) 

READdTTYlN,2)IANSR 
IFdANSP.EQ.lNO)GO  TO  9300 
lExEcn 
COD  RETURN 

m*m  FOR“AT  STATEMENTS  ••• 

1  FORMAT ( IX ,//, IX ,26HD0  YOU  WISH  Tq  EXECUTE  THE  i 

£  25H  PROGRA-  AGAIN  ?  (YES/NC)/) 
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2 


format (A3  ) 
END 


C 

C  ■.^♦^o.^^i**********  *»*•*•♦*••*»*♦»**-**»•••*  ••*<****•>****»»** 

C  *,**•-.»*♦*»♦#»»*•*»•»••*»♦*»*••****-**••»*»*••*••••»•***♦*•*»♦ 

c 

SUBROUTINE  RaTOUT 

c 

C  **,*»<l**********»*********#**********M************************ 

c 

c  this  routine  prints  the  ratings  chosen  in  a  table 
c 

c  »»»**»»*»*»*»»^********1||»*»***»*******»*  •••••••  ••*•*♦*••**••»•* 

c 

COMMQN/otG/RTING ( RQ  ) 

C0MM0N/HDR2/NSCEN»SCN0SC(25,1£1, INDEX  1 , ICHCIC 

COMMON/HORl/S YSDSNf NSYS ,NSU9 1,NSuB2»NPARm , 

C  SYSSET  (  4  )  fSBlSET  (  4  ) ,  S82SET(  ** )  , 

C  SYSNAM(10,U),SUBlNM(2a,4J , S UB 2NK ( 1 0 , 1 C , 4 ),PARNAM(40,4), 

C  NUH(4G),RATE0(4CJ,YN<4QJ , INVERT (4C1 , INDEX 
COMMON/UNITNO/ITTYIN, ITYOUT , IPPH , lUPPH , I PP ,IURP,IVPARM,TSYS 
INTEGER  SYSDSN,SYSSET,SB1SET,SB2SET,SYSNAM,SUS1NM,SUB2N‘', 

L  PARNAM, RATED, YN,SCNOSC 
C 

C  TEKTRONIX  PAGING;  TAKE  OUT  IF  NOT  USING  TEKTRONIX  TERMINAL  0 

C  GRAPHICS 

LINE=34 
NPAGERC 

call  paG£R(LIN£,NRAG£,C) 

WRITE( ITYOUT, 1 J(SCN0SC(ICH0IC,M),Mri,i5) 

C 

DO  IOC  I=1,NPARM 

4PITE( ITYOUT, 2) (PARNAM (I,M),Mri,4),RTING(I) 

100  CONTINUE 
C 

WRITE ( ITYOUT, Z, 

C 

RETURN 

C 

C  •**  FORMAT  STATEMENTS 
C 

1  F0R-AT(lx,//,15X,15A4,//,21X,36(lH*),/2iy,lH*,5X, 

C  13H  parameters ,8X, IH* , lOH  RATINGS  * , / , 1 X , 2CX , 3P (  IH*  )  ) 

2  format  (21X,1H'*,  5X,4A4,5X  ,  1  HM  ,2X  ,  F5 . 3 , 2X  ,  1  H*  ) 

3  FORMAT ( 21 X, 36 ( IH* ),// ) 

END 

C 


SLOCK  DATA 


oooooo  ooooooo  oooo  ooo  ooo 


ALLC.S  the  user  to  change  UNIT  NUMBERS  FOR  I/O  f'ORE  EASILY 


CrM»*ON/UNlTNC/ITTVIN,ITYCUT,IPPH,lUPPH,IPP,IUPP,IVPAR“,ISYS 
CA  TA  ITTyIN  ,ITY0uT,IPPH  tiUPPH, IPP , IUPP,lVPARM,ISYS/E,2,!C,lC,12t 
C  13,l*»,15/ 

END 


SUBROUTINE  P AGE R { LI N£ , NP AGE , L IMIT ) 
IFl  (LINE^L1“IT)  .lT.3‘4)  RETURN 
PAUSE  "TYPE  GO  FOR  NEXT  PAGE" 
LINE=C 

NPAG£  =  NO AGE*  1 

RETURN 

END 


OVERLAY (SSM» 1 ,G1 
PROGRAM  RPP 


this  ROUTINE  READS  IN  THE  INFORMATION  THAT  DESCRIBES  T“E 
PARAMETER  PACKAGE  AND  PLACES  IT  IN  COMMON  STATEMENT  /HDPl/ 


COMMON/HD Rl/SYSDSN, NS Y S ,NS UP  1 , NS U5 2 t NP AP M , 

C  SYSSET  (  4  )  ,  S81S£T(<4  »  ,  sB2SET(4  )  , 

L  SYSNAM(lCt4),SueiNM(2D,4),SU52NM(lC,lC,4), 

c  PARNAM(4af4), 

C  NUM(4C),RATED(4C)tYNl40)tINVERT(4a), index 

COM"ON/UNITNO/ITTYIN,ITYOUT, IPPH, IUPPH,IPP, lUPPflVPARM,  ISYS 

C0MM0N/DB/DB.\AME  (  4  ) 

COMMON /HOP  2/ NSC EN.SCNO sc (2  5,15  > ,INOEXl,ICHOIC 

INT'^GER  SYSDSN,SYSSET,SBlSET,SB2SET,SYSNAM,SUBlNM,5Ue2N“, 

C  PARNAM, RATED, YN,DBNAME,SCN0SC 


READ  IN  DATA  BASE  NAME  FOR  PARAMETER'  PACKAGE  “mm 

READ  ( IPPH,3) (CBNAMECM ) ,M=1,4) 

**m  READ  IN  SYSTEM  DESIGN 

READ ( IPPH , 1 ) S YSDSN 
C 

C  READ  NO.  OF  SYSTEMS, SUBSYSTEMS ,PAOA"ETED 

C 

READ ( IPPH, 2 ) NSYS 
READ ( IPPH,2 ) NSU0  1 
READ ( IPOH  ,2 ) NSue  2 
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OEAO ( IPPH,2)NFARM 
ir(\'SYS.EO.C)GO  TO  60C 


C 

c 

c 


c 

c 

c 


100 

c 

C 

c 


200 

c  *** 


301 

300 

C 

4  00 
C 

c  •»» 

c 


500 

c 

c 

600 

c 

c  *** 

c 

700 


800 

900 

1000 


PEAD  IN  SETNaMES 

=rAD<IPPH,3)lSYSSET(I),I=lt4) 

IF(SYSDSN.GE.2)RlAO(IPPH,3) (SalSETCI)  ,1  =  1,4  ) 

IF ISYSOSN .EC .3)P£A0 (IPPH ,3) CSB2SET ( I ) ,1  =  1 ,4  ) 

PEAT  IN  system  NA-ES 

CC  100  I=1,NSYS 

REAClIPPH,3)(SYSNAM(l,J),J=l,4) 

CONTINUE 

IF(\'SUei.EG.Q)60  TO  hCC 

REAC  IN  SUBSYSTEM  LEVEL  1  NAkES 

CP  ->00  I  =  l,NSUdl 

READ  ( IPPH, 3 ) ( SUBINM (I ,J » , j=l,H) 

continue 

IF(NSUE2.EQ.Q)60  TO  400 
DEAD  IN  SUBSYSTEM  LEVEL  2  NAMES 
00  3u0  K=1,NSU61 
DO  301  I=l,NSUa2 

read  (IPPH,  3)  (SL'o2nM(K,I,J),vJ=1,4> 

CONTINUE 

CONTINUE 

continue 

READ  IN  parameter  NAMES  £  PARAMETER  CHARACTERISTICS 

CO  500  I  =  1,N'PARM 

REA0(IPPH,4)(PaRNAM(I,JJ,J=1,4),NUM(I>,RATED(I),YN(I), 
INVERT ( I ) 

continue 

GO  TO  700 

WRITE(ITY0UT,5) 

CALL  EXIT 

calculate  index  FOR  POSITIONING  FILES 
CON'^INUE 

IF(NSUE1.E0.0)G0  to  oOO 
IF(NSUB?.EC.C.JGO  TO  9  00 
INDE  X  =  NSU9 1»NSU?2 
GO  TO  1000 
iNOExn 

GO  TO  1000 
IN0FX=NSUE1 

continue 
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**•  call  RL'PP  *** 

call  CVf:R,LAY  I  3hSSP  ,  1»  1 ,0  ) 

F0R»'AT  STATEMENTS  **• 

format  (  U  ) 
format (12) 

F0R“AT  (UA**  ) 

format (HAU ,11 ,11,11,11) 

FORMATl 1X,37HERR0R  IN  HEADER  —  NO.  OF  SYSTEMS  =  P) 


END 


overlay ( SSM,  1,1) 
program  RUPP 


THIS  ROUTINE  READS  IN  THE  INFORMATION  THAT  CESCPIPES  THE 
USER  PREFERENCE  PACKAGE  AND  PLACES  IT  IN  COMMON  STATEMENT 
/HDP2/ 


C0MM0N/H0R2/NSCEN,SCN0SC (25, 15 ) ,IN0EX1,ICH01C 

COMMON/UN ITNO/ITTM IN, ITYOUT, IPPH, TUPPH, IPP, IUPP,IVPaRm,tsYS 

integer  SCNOSC 

READ  IN  NO.  OF  SCENERIOS 

READ ( lUPPH, 1 ) NSCEN 

IF(NSCEN.EQ.0)«RITE{ITY0UT,2) 

READ  IN  SCENERIO  DESCRIPTION 
00  lUO  1=1, NSCEN 

READ  (  lUPPH  ,3  )  (SCNOSC(I,J)tv;  =  1,15) 

CD  continue 

mmm  FORMAT  STATEMENTS 

format ( 12  ) 

F0RMAT(‘»9H  error  in  user  preference  package  “  NO.  OF  SCENAR, 
C  6HI0S  =0) 
format ( 15 A4  ) 

END 
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0V£PL^Y(SSM,2,C1) 
PP0GR4K  SCNSEL 


THIS  POUTINP  REACS  IN  THE  RATINGS  ARRAY  EITHER  By  THE  USER’S 
PPEPERENCE  PACKAGE  OR  EY  THE  USER’S  OWN  RATINGS 


COMHON/HDRl/SYSDSN,NSYS,NSUBl tNSUB2,NPARM, 

C  SYSSET(4),SeiSET(4»,SB2SET(<l), 

C  SYSNAM(lC.‘»),SUeiNM<20,4J,SUE2NM(10,lC,u), 

C  PARNAH(4C,4  )  , 

C  NUM(4Qj,RATED(4n),YN(40),lNVERT(4C)tIN0EX 

C0HM0N/H0R2/NSCEN,SCN0SC (25,15 »,  INDEX  1 , ICHOIC 
COMMON /UN ITNO /ITT YIN, IT YOU T,IPPH,IUPPH,IPP,  IUPP,IVPAKH,TSys 

COMMON /p TNG /Rating  (40 

COMMON /PTG/RTING( 40) 

INTEGER  SYSOSN,SYSSET,SB IS £T , S62SET , S YSN AM , SUE  1 NM  ,  SU52 N m , P A PN A M , 
C  DATED, YN,SCNOSC 
DATA  IYES/5HYES/ 

WRITE  OUT  title  ••• 

TEKTRONIX  PAGING;  TAKE  OUT  IF  NOT  USING  TEKTRONIX  TERMINAL  OR 

graphics 

LINE=24  . 

NPAGERO 

CALL  PAGER(LINE,nRAGE,0) 

WDITE ( ITYOUT ,  15  ) 

WDITE  OUT  available  PARAMETERS  *** 

-PITE ( ITYOUT ,  13  ) 

DC  199  I=1,NPARM 

>RITE(ITY0UT,1h)I,(PARNAM(I,U),J=1,4> 

?9  continue 

»•*  input  own  ratings  ?  *** 

C  TEKTRONIX  PAGING 

LINE=34 
NPAGE-0 

call  PAGEP(LIN£,NPAGE,0) 

^PITE { ITYOUT,  1 ) 

READ ( ITT  YIN ,8 ) IANS 

:f(ians.eo.iyes)go  to  lao 

■.PITE(  ITYOUT,  11  ) 

c 

c  «««  POINT  OUT  SCENEPIO  DESCRIPTIONS 
C 

DO  Tcr  I=1,NSCEN 

•RIT£(ITY0uT, 1D)I,(SCNCSC(I,J) ,j:i,15) 
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20C 

c 

c  mmm  READ  IN  CHOICE  OF  SCENERIC 
C 

»PIT£(ITY0UT,9J 
DEAD  tITTYIN,*lICHOIC 

IF(TCH0IC.EQ.C.0R.ICH0IC.GT.NSCENURIT£(ITYCUT,:6> 
IFdCHCIC.EO.DGO  TO  250 
INDEX1=( ICHOIC-1 )*NPARM 
C 

GO  TO  260 
C 

c  mmm  READ  IN  RATINGS  FROM  USERS*  PREFERENCE  PACKAGE 
C 

250  DC  7Cr  irl.NPARM 

REA0{IUPP,5)RATINGII) 

300  CONTINUE 
C 

GO  TO  1000 

c 

260  00  710  I=1,IN0£X1 

REAC  (IUPP,6)IuUM 
31Q  continue 

c 

CO  MCC  I=l,NPAfiM 

READ(IUFP,5IRATING(I) 

90C  CONTINUE 
C 

GO  TO  1000 
C 

100  CONTINUE 
C 

c  ***  READ  IN  USER’S  OuN  RATINGS  *** 

C 

C  TEKTRONIX  paging 

NOAGErC 
LlNr=3A 
ICMOICn 
WPITE( ITY0uT,2) 

REAClITTYlN,3)<SCN0SC<ltv))fJ  =  lfl5) 
call  baGER(L1N£,NPAGE,CJ 
WPIT£(ITY0UT,17) 

DO  500  Irl.NPARM 

wPlTEdTYOUTtlEXPARNAVCI^jjjjzl^U) 

READ  dTTYIN,#)RATlNGd) 

IF(RATINGd).LT.E.0R.RATlNGdJ.GT.l)wRlTEdTY0UT,16) 

SCO  continue 

C 

1000  DO  1001  L=1,NPaRM 
RTING(L)=RATING<L  I 

1001  continue 

c 

c  mmm  FORMAT  STATEMENTS  mmm 

C 
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1  FOK»'AT(lX,/,lX,,HOriDO  YOU  wISH  TO  ENTER  YCUR  OWN  DATINGS  ?  , 

E  6h( YES/NO) / ) 

2  F0R»'AT  (  1X,30hPlEASE  ENTER  YOUR  SCENARIO  DES, 

C  24HCRIPTI0N, LIm:t=6Q  CHARS./) 

3  FCR*‘AT  ( 15A4  ) 

4  FORHAT(I2) 

E  FCR‘'AT(1X,F?.3) 

6  FOR“'AT<Al) 

7  FOR“AT{4A4) 

8  F0RNAT(A3) 

9  FORHATCIX,//, 1X,3PhENTER  NO  OF  CHOICE  OF  SCENARIO,/) 

10  F0R‘*AT(6X,I2,4H  —  ,15A4) 

11  FORMAT ( IX ,//, IX , 19HSCENARI0S  AVAILABLE,/) 

12  FOR“AT ( 1x,4Ah  ,/ ) 

13  format  ( 1  X  ,2?HLIST  of  AVAILABLE  PAR  A‘'ETERS  ,  /  /  ) 

14  F0R“AT(1X,I2,4H  —  ,4A4) 

15  FORMAT ( iHl ,/, IX, 72( IH* ),// ,20X ,3CHSYSTEM  SELECTION  MODEL  PROGRAM, 
C  // ,1X,72 (1M«)  ,//  ) 

16  format (  IX,//,  IX, 

c  CQH  •»*-erdor-***  sad  Input — stop  execution  c  restart,/) 

17  format ( IX,//,  IX, 

C  45MPLEASE  ENTER  RATINGS  (u-D  FO®  EACH  PARAMETER,/) 

END 

C 

C  m*m***m*m*^*m*m*m*****m*****m*m***m*****mm***»************9**** 

C  **»•»***»*••****••»*••****••••■»*»»•«••*»**»•»•••***•*»*#*••*»• 

c 

OVERLA Y(SSM,3,0) 

program  parsel 

c 

c  •***»***•»•••**»*•»•»•••»***•»*••*****•**•••*•**•••»*•»*•»•.• 

c 

C  READS  IN  parameters  kANTED  ANC  TheI»  RESPECTIVE  RANGES  THAT 

C  APE  TO  PE  INCLUDED  IN  THE  DECISION  PROCESS 

C 

c  **m***m*m*^m^*m*m*mmm*m*********mM***m*mmm*mm»*m**m**mm*mm**, 

C 

COMMON/HORl/SYSDSN,NSYS,NSUei ,NSUe2,NPARM, 
t  SYSSET (4 ) ,SE1SET <4 ) ,SB2SET14  )  , 

C  SYSNAM 1 10,4 ) ,sue INM (20,4 ) ,SUB2NM (10,10,4), 

£  PARNAM(4J,4) 

C  ,NUM(40),RATEC(4C),YN(4C),INVERT(4C),IN0EX 

C0MM0N/PARA»'1/n0PPM,CHPRM(40),ABV(40),BELW(40),RL0wR(4C), 

L  HIP(40),RTD(4j),IRANGE(40),ISiiN0(40) 

COMMON/UNITNO/ITTYIN, ITYOUT , IPPH , IU»PH , I PP , IUPP,IVPARm,ISYS 
integer  SYSCSN,SYSSET,SB1SET,SJ2SET,SYSNA*',SUB1NM,SUB2N“, 
t  DATED , YN ,PARnAM 
INTEGER  CHPPM 
DATA  IN0/2HN0/ 

C 

c  ***  initialize  to  zero 

C 

CO  190  khY=1,40 
A0V(KHY):D 
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B^LW (KHY ) =0 
RLOUR ( KHY )=C 
HIR ( KHY ) =0 
RTD (KHY ) =3 
ieAN5E(KHY)ra 
CHPPM ( KHY ) =3 
ISUNO(KHY)=P 
199  CONTINUE 
C 

C  m*m  NO.  OF  PARA*'ET£RS  CHOSEN  **♦ 

C 

C  TEKTRONIX  P*GING 

LINErlM 
NPAGE=0 

CALL  PAGE.R(LIN£,.\PAGE,C) 

wOITE(ITY0UT,3) 

read(ITtyin,*)noprm 

IFlNCPR^.LE.O.OR.NOPRM.GT.NPARMj^RITEdTYOUT.ie) 

WRITE ( ITYOUT ,  16 ) 

C 

c  ***  READ  IN  CHOICE  OF  PARAMETERS 
00  2uC  Iri.NOPRM 
-PITE ( ITYOUT,  17  ) 

READ  ( ITT  YIN,  *  )CH  PPM  (U 

IF (ChPRM  < I » .LE.O.OR .CHPRMI I ).6T.NPAPM)  WRITE  (ITYOUT,  18) 
20C  CONTINUE 
C 

c  «*•  read  panGES  or  limits  ON  INDIVIDUAL  PARAMTERS,IF  ANY 
C 

C  TEKTRONT'^  PiGING 

NPAGErC 
LiNErm 

call  PAGER (LINE ,NPAGE ,C  ) 

CO  ICO  I=1,N0PRM 
K=CHPPM ( I ) 

LINE  =  3‘4 
NpaGE^C 

IF(I.E0.5.0P.I.E...10.0R,I.EC.15.0P.I.EC.20.CP.I.E0.25. 
C  .(jP  .  I  .EG  .35  .  OR  .  I  .£0.  MC  )  CA  LL  P  A  G  £  R  (  L I  NE  ,  N  P  A  G  E  ,  C) 
•pITE(ITYCuT,5)(PARNAM(K,J),J=1,4) 

IF (NUM ( K )  .EQ .  1  )G0  TO  1000 
IF (RATED ( K )  .EQ . 1 )  GO  TO  2000 
IF(YN(K).'’a.l)wPITE(ITY0UT,15) 

300  CONTINUE 
C 

GO  TO  9190 
C 

c  specify  a  limit  ?  ••• 

C 

IQJO  I.PITE  (  ITYOUT  ,  6  ) 

RE  AD ( ITT  YIN , 7 ) I  A  NS 
IF(IANS.E0.IN0)ISWN0(I)=1 
IFdANS.EO.TNOGO  TO  300 
C 
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C  •••  A90VE,BEL0nt  OS  IN  BETWEEN  ? 

C 

WOITE ( IT  TOUT, 3 ) 

BEAD ( rTTYlN,9)IRNfi 

IF(IRKG.LE.D.0R.IRNG.GT.2)wRITE<ITY0UT,18) 
IRANGE ( I ) rIPNG 
C 

GO  T0(10,20,3a)  ,IPNG 
C 

C  ABOVE  *** 

C 

10  .RITE ( ITYOUT, 11)(PARNAM<K,J),J=1,4) 

READ ( ITTyIN, w  )  ABW (K  ) 

BELW(K )=0 
RLOWk (K  )  =C 
HIR ( K  )  =0 
GO  TO  1001 
C 

C  *•*  EELOw  ■*» 

C 

20  UPITE(ITY0UT,12)IPARNAM{K,J),J=1,*4) 

READ ( ITT  YIN , *  )  BELW (K  ) 

ABV (K )=C 
RL0WR(K/=0 
HIR ( K ) =0 
GO  TO  1001 

IN  BETWEEN 

30  WRITE(ITY0UT,12)tPARNAM(K,J)»J=l,4) 
REA0(ITTYIN,*)HIR(K) 

UPITE(ITY0UT,11)IPARNAM(K,J),J=1,4) 

READ ( ITTYIN»*)RL&WR (K  ) 

AB  V ( K ) =0 
3ELW(K )ra 
C 

1001  GO  TO  300 
C 

C  **•  SPECIFY  LIMIT  ? 

C 

2000  WPITE( ITYOUT, 6) 

READ ( ITT  YIN , 7 ) I ANS 
IF(IANS.EO.lNO)ISWNO(I)rl 
IF ( IANS .£0  .INO  )  GO  TO  300 
WPIT£( ITYOUT,  m  ) 

READdTTYiNf  9)IIANS 

IF(II»NS.L£.O.OR.IlANS.GT.5»»RlTt(ITYOUT,10) 
RTu(K )=IieNS 
IRANGE ( I ) =11 ANS 
GO  "^0  300 
C 

c  FORMAT  STATEMENTS  ••• 

C 

3  FOR'^AT  (  1  X,45HENTER  ThE  NUMBER  OF  papa-ET;,?:  • 
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ADVANCED  TECHNOLOGY  MULTIPLE  CRITERIA  DECISION  MODEL. (U) 

NOV  81  P  J  SWEENEY.  K  B  BERNER.  U  R  FRAkER  F33615-77-C-2059 
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t  2‘*H  In  the  decision  process/) 

«  FCRHaTCIE) 

5  FCRMaK  IX,/,  IX,  13HPARAMETER  --  ,444) 

fc  POR“AT(53H  WOULD  YOU  LIKE  TO  SPECIFY  A  LIMIT  THAT  THE  PARAMETER/, 

Z  26H  has  to  SATISFY  ?  (YES/NO)/) 

7  F0RMAT(A3) 

6  FORMAT  (1X,37KD0  YOU  WANT  THE  PARAMETER  TO  BE  ABOVE, 

e  7h,  below,/, IX, 34H0R  IN  BETWEEN  THE  SPECIFIED  LIMIT?,/, 

Z  1X,32h(CHOOSE  I,  2,  OR  3  RESPECTIVELY),/) 

9  FORMAT(II) 

11  F0RMAT(1X,4A4,1H)) 

12  FORMAT  {  IX, 4A4  ,  IHO 

14  F0RMAT(1X,46HTH1S  PARAMETER  CAN  BE  ^ATED  AS  EXCELLENT , GOOD , , 

Z  24MFA 1R,P00R,  OR  VERY  POOR , / 1 X , 26HCH00SE  1  ,2 , 3 » 4 , OR , 5  , RES P . , / > 

15  format ( lx, 47HA  OuALATITIVE  PARAMETER — CANNOT  SPECIFY  A  paNGE) 

16  FORMAT11X,/1X,38mENTER  EACH  INTEGER  NO.  ASSOCIATED  k'lTh, 

Z  13H  EACH  CHOSEN  , / 1 X , 34HP aR AM£T £P  (FROM  LOWEST  TO  HIGHEST),/) 

17  FORMAT ( 1 X , 18H  PARAMETER  NO.  --  ) 

18  format (IX, //IX, 5GH  •♦♦-ERROR-BAD  INPUT— STOP  EXECUTION  C  RESTiRT, 
Z  /) 

9190  CONTINUE 

ENC 


OVEPLAY(SSM,4,OI 
PROGRAM  ELIMIN 


THIS  POUTINF  ELIMINATES  UNnANTED  PARAMETERS  AND  RANGES 
OF  OTHER  parameters 


CCMMGN/HORI/S YS0SN,NSYS,NSUB1 ,nSUP2  ,NPABM , 

Z  SYSSET{4),SB1SET<4),S82SET(4), 

Z  SYSNAM(lC,4),SUalNM(2G,4),SLB2NM(lC,10,4),PARNAM(40,4), 

Z  NUM (4C ) ,RATEO (40 ) , YN (40 ) , IN  VERT ( 4 0 ) , I NDE X 

COMMON/UMTNO/ITTYIN,ITYCUT,IPPH,lUPPH,IPP,  IUPP,IVP4RM,  ISYS 

COMMON/PARAM1/nOPRm,CHPRM(40) ,ABV(40) ,BELW(40  )  ,RLOWR ( “C  )  , 
r  HIP(4C),RTD(40) ,IRANGE( 40  ) ,  IS«NO( 40) 

COMMON /OAR am 2 /EL IM (7, 10,40  ) 

COMM 0N/HDR2/NSCEN,SCN0SC (25,15) , INDEX  1 , 1 CHC 1C 
COMMCN/OB/DBNAME (4  ) 

DIMENSION  P4RAM(85,1C) 

DIMENSION  OUM(IO) 

INTEGER  MATRIX, ELIM,CHPRM 

INTEGER  S  YS!^SN,SYS5ET,S82S£T,SYSNAM,SUblNM,SUB2NH,p4RNAM, 

C  RATED, YN,CBNAM£,SCN0SC 

♦♦♦  INITIALIZE  MATRIX  TO  1  ♦•• 

DO  oy?  kmn2=i,npapm 
DO  99E  KMN=i, Index 
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995 

C 

C  «** 

c 


997 


C 

c  **■* 
c 


2C5 

C 

c 

c 


215 

C 

C  «*<* 

c 


223 

200 

C 

C  ««* 

C 


599 


555 

C 


CO  995  KMNl=l,NSYS 

TPIX(KMN2,K*^S,KMN1  )  =  l 

conti\'ue: 

initialize  elim  to  0  ••• 

DO  997  KJU=1, INDEX 
GO  997  KJUl=lfNSYS 
CO  097  KJU2=ltNPARM 

ELI**  (KJUyKJUl  «KJU2)=Q 

continue 

PE>ilND  lUPP 
REbiND  IPP 
KSC 

FIND  parameters  chosen 

DO  2UC  I=1,NPARM 
DO  205  Mri.NOPR** 

IFiI.EQ.CHPRM(M) )60  TO  210 
CONTINUE 

INDEX  FILE  TO  CORRECT  PARAMETER  ••• 

DO  21?  LJSltlNDEX 

READ (lPPt*> (0UM(KLK ) ,KLK=1  ,NSYS» 

CONTINUE 

ELIMINATE  parameter  »•* 

20  220  NL=1, INDEX 
DO  220  NLL=lrNSYS 
MATRlX(I,NLtNLL)=0 
CONTINUE 

continue 

TEST  TO  SEE  IF  ALL  SYSTEM'S  HAVE  BEEN  ELIMINATED 
SW2  =  0 

CO  599  L^lfNOPR** 

DO  599  LL=1»IN0EX 
00  599  LLL=1,NSYS 
KrCHP9M(L) 

IF(!«ATRIX(K,LLtLLL)  .EQ.0»Sw2  =  l 
CONTINUE 

IF(S.2,EC.0)G0  TO  9190 
SW1=0 

DO  555  L=l, INDEX 
CC  555  lL-1,NSYS 
DC  55?  LLLrl,NPAKM 

IF(MATRIX(LLL,L,LL).EQ.1)SW1=1 

CONTINUE 


LINE=34 


c 

c  «*« 

c 


c 

c  *** 

c 

c 


c 

c  *«« 

c 

21u 

3QC 

C 

C  m*m 

C 


C 

C 

C 


3C2 


C 

C  «** 

c 

305 


NOAGErc 

call  PAGE3(LlNEfNPA6£.C) 

wRIT£( it  you T, 5  J  (08NAME  <KK ) ,KK  =  1,4) , SYSDSN, 

C  (SCNOSCdCHOICfHlfirl.lS),! 
ir(S4l.£G.a)4RIT£JITY0UT,4> 

CALL  ELIMINATION  TABLE  ••• 

call  0VERLAY( 3HSSM,4,  1  > 

REMIND  IPP 

IF  ALL  SYSTEMS  HAVE  BEEN  ELIMINATED  DON'T  PRINT  UTILITY 

value  table  •** 

IF(Si*l.£G.0»CALL  EXIT 
GO  TO  9190 

READ  IN  parameter  DATA  *•» 

DO  3uC  J=l, INDEX 

READ ( IPP,*) (PARAM(J,ML),KL=1,NSYS> 

continue 

K=K^1 

TEST  FOR  WHICH  TYP£  OF  PARAMETER  C  WHAT  RANEEtIF  ANY  *** 

IF{PaTEO< I) .EO. 1 )60  TO  101 
IF<YN( I) .EQ. 1 )G0  TO  1C2 

IF( ABV( I) .EC.O.AnO.BELw (I).EO.C.ANO»HIR(I).CO.O.ANO. 
CRL0WR<I).EQ.Q)G0  TO  103 
IF<A3V(I) .E0.£.AN0.8ELW(I).EC.0)G0  TO  104 
IF< A8V(I) .EC.OIGO  TO  105 

NUMERICAL  PARAMETER  —  RANGE  IS  ABOVE  ••• 

DO  301  L=l, INDEX 
DC  301  LL=1,NSYS 
iveiN=c 

DO  302  »'M  =  1,N0PRM 
NKlrCHPRM(MM) 

IF(**ATRIX(NKI,L,LL)  .EO.O.ANO.ISWNO(K)  .EO.OGO  TC  703 
CONTINUE 

IFdVSIN.EO.l  )60  TO  301 
IF(ISWN0{K).EC.1)60  to  301 
IF{PARAM(L,LL) .GE.ABV (I ) )G0  TO  304 
DO  305  Lm:1,N0PRM 
KllrCHPPMfL*') 

parameter  is  ELIMINATEO  •*• 

MATPIX(KII,L,LL)=0 
CONTINUE 
ELI»'(L,LL,K)rI 
GO  TO  301 
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c 

c  **•  PARAMETER  IS  ALLOWED  TO  REMAIN  •»» 

C 

304  MATR1X(I,L,LL)=1 
301  CONTINUE 
GO  TO  2G0 
C 

C  TEST  TO  SEE  IF  PARAMETER  WOULD  BE  ELIMINATED  ANYHOW  »*• 

C 

303  IF(PARAM(L,LL».LT.ABW(I>)ELlH(LtLL»K)=I 
MATRIX(I,L,LL)=0 
IVdIn:i 
GO  TO  202 
C 

c  **»  NUMERICAL  Parameter  —  range  is  belo»  *** 
c 

105  DC  UQl  L  =  l, INDEX 
DO  “Cl  LL=1,NSYS 
IVBIN=0 

CO  <102  *'M  =  1,N0PRM 
NKirCHPPM ( MM) 

IF(MaTRIX (NKI ,L,LL )  .EQ.Q.ANO.ISWNO ( K) .EQ.0)G0  TO  402 

402  CONTINUE 
IFCiveiN.EG.DGO  TO  401 
IF(ISWN0{K)  .EG.DGO  TO  401 
IF(eAPAMlL,LL).L£.eELW<I))60  TO  404 
CO  405  LM=l,NOPRM 

KIlrCHPOM (LN) 

MATRIX(KII,L,LLJ=0 
4C5  CONTINUE 

ELI“'(L,LL,K)=I 
GO  TO  401 

404  MATRIX(I,L,LL)=1 
4C1  CONTINUE 
GOTO  200 

403  IF(PARAM{L,LL).GT.BELW(I ) ) ELIM (L , LL ♦ K ) =I 
MATRIX(I,LfLL)=Q 

IVBIN=1 
GO  TO  402 
C 

C  ***  NUMERICAL  PARAMETER  —  RANGE  IS  IN  BETWEEN 
C 

104  00  SOI  L=1»IN0CX 

DO  501  LL=1tNSYS 
IVBiNrC 

DO  5C2  “M=l,NOPPM 

NKI=CHPRM (MM) 

IF(MATRIX(NKl,L,LL).EC.C.ANO«ISWNO(K) .EQ.0)G0  TO  503 
5C2  continue 

IFdveiN.EC.DGO  TO  501 
IF(ISWNC(K).EC.1)GC  TO  501 

IF(PARAM(L,LL)  .GE.RLOWRd)  .ANO.PAPAM(l,LL  )  .LE  .hlR  ( I)  )G0  TO  5C4 

DC  505  LM=1,N0PRM 

K11=CHPPM(lM) 
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T^IX (kII,L,LU  >=0 
5C5  CONTINUE 

ELI«(L,LL,KJ=I 
GC  TO  SOI 

50h  ^ATeiX(I,L,LL)=l 
501  CONTINUE 
60  TO  200 

5  05  I''(PAPAH(L,LLJ.LT.RLOWR(I).OR.P/lRaM(L,LL)  .GT.HIP(I)  ) 
€  ELIM(L,LL,K ) SI 
yaTRIX(I,L,LL)=0 
IV8IN=1 
6C  TO  502 
C 

103  GC  TO  200 
C 

C  •**  OUALATATlVt  PARAMETER  *•* 

C 

102  CO  601  L:1, INDEX 
DO  601  LL=1,NSYS 
IVGINSC 

OC  602  “MSI.NOPRm 
NKlrCHpOM(MM) 

IF('‘ATRIX{NKI,c,lL  )  .£C.0.AN0.ISWN0(K)  .EO.OGO  TO  6Q3 

602  CONTINUE 
IF(IV9IN.£Q,1)G0  TO  601 
IF(PAPAM(L,H.).EG.1)60  to  60« 

CO  605  LM=1,NCPPM 
K11=CHPPM»LP) 

MiTPIX(KIl,LiLL)=? 

60S  CONTINUE 

ELI“1L,LL,K)=I 
GO  TO  601 

604  MATPIX(I,L,LL)=1 

601  continue 

GO  TO  200 

603  IE(PAPA**(L,LL).NE.l)£LIM{L,LLrK)=I 
M4TPIX(I,L,LL)rO 

IVBlN^l 
60  TO  602 
C 

C  m*m  RATED  PARAMETER 
C 

101  IFCPTOd)  ,£Q.0)GC  TO  200 
00  7Q1  L=l, INDEX 
DO  701  LL=1,NSYS 
IVSINSO 

DC  702  “MSl.NOPPM 
NKIsCHPPM(M“) 

IFC'ATRIXCNKIjLfLD  .ES.O.ANO.ISUNOIK)  .EO.OGC  TO  7C3 
7C2  CONTINUE 

IF(lV9IN.E(i.l)60  TO  701 
IF(ISWN0(K»  .EO.DGO  TO  701 
IF(PAPAM(LrLL)  .LE.RTDd  )  )6C  TO  704 
DC  705  LMrlfNOPPM 
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KllrCHPOM(L**> 

-ATPDf  (KlI,LtLL)=0 
705  CONTINUE 

ELIM(L,LL,K)=I 
GO  TO  701 

70**  «flTPIX(I,L,LL)=l 

701  CONTINUE 

GO  TO  200 

703  IF(PAPAM(L,LL)  .GT.RTOd  )  »ELIM(L»LL,K)=I 

KATPIXdtLtLDsO 
IV3IN=1 
CO  TO  702 
C 

C  ***  FORMAT  STATEMENTS  *** 

C 

1  F0RMAT(1X,I1) 

2  FORMAT(Al) 

3  F0R*'AT(I1) 

4  FORMAT(1X,/,20X,32HALL  SYSTEMS  HAVE  BEEN  ELIMINATED) 

5  F0R“AT{1H  ,72(lH»)/lXt5X,4A4,5X,5HCASE  , 1 1  * 3X  , 

C  17HELIMINATI0N  T A 6LE , / , 1 X t 1 S A4 , 5X , 5HP AGE  ,12,/, 

L  1X,72(1H*)) 

9190  continue 

END 
C 
C 

c 

c 

c  «««*««**»«»**««*«*«««««*«**««*«««*«*«*«***P***4j*»*»*»**«»*»**»» 

c 

0VERLAY(SSM,4,1) 

PROGRAM  TABLE 
C 

C 

C 

C  THIS  ROUTINE  FINDS  WHICH  SYSTEMS  HAVE  BEEN  ELIMINATED 

C  FROM  THE  DECISION  PROCESS  AND  PRINTS  THE  REASONS  WHY  IT 

C  WAS  ELIMINATED. 

C 

C  »***••****•**•*♦*•*♦♦•♦****♦••*•••♦••******•*••••••*•*«.*•»**•♦ 

c 

COMMON/HORl/S YS0SN,NSYS,NSUB1 ,NSue2,NPARM, 
tSYSSETiU} ,SP1SET(4),sB2SET»4), 

E  SYSNAM(10,4) ,SUolNM (20,4) ,Sue2NM(10,10,4),PARNAM(40,4), 

C  NU*«  (  4C  )  ,  RATED  (40  )  ,  YN  (  4  0  )  ,  IN  VERT  (  4  0  >  ,  INDEX 
COM**ON/PARAM1/NOPRM,CHPPM(40  ),ABV(40),BELW(4C)  ,RL0WR(40)  , 

C  HIR(4C) ,RT0(40),IRANGE(40),IS-N0(4C) 
CCMMON/UNITNO/ITTYIN,ITYOUT,IPPh, IUPPH,IPP, lUPP , I VP ARM, I SYS 
COMMON /HO R2/NSCEN,SCN0 SC (25,15) , INDEX  1 , ICHOIC 
COMMON /BAR A M2 /EL IM (7, 10, 4C  ) 
common/os/dbname ( 4  ) 

INTEGER  ICUALT(5,3) ,£LlM ,0BNAME, SCNDSC 

INTEGER  CHPPM,SYS0SN, SYSSET,SS1SET,Sd2SET, SYSNAM, SURINM, 
CSUb2NM,RATED, YN 
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C#T*  IQUALT  (  1 , 1 ) /uhExCE/ ,IQUALT(  1,2  J/‘4HLLEN/,  lOUALK  1 , 3  ? /4hT  / 
DATA  IOUALT(2,1)/4HGOOO/,1CUALT(2,2)/4H  / , IOUAL T ( 2 , 3  ) /4 H  / 

DATA  IQUALTC3,1)/4HFaIR/,IQUALT(3,2»/4H  /  ,.I  CUAL  T  (  3 , 3  > /4  h  / 

DATA  IwUALT(4, i)/4HeCOR/ ,IQUALT(4,2J/4H  /, IQUALT ( 4 , 3 ) /4H  / 

DATA  1GUALT(5,1)/4HVERY/,IQUALT<5,2J/4H  POO / , IQUAL T ( 5 , 3  ) /4HP  / 
*PITE( ITYOUT,  IGl) 

WRITEHTYOUT,  102)  (SCNDSC  (ICHOICtl)  ,1=1,15) 

C 

C  GO  TO  THE  CORRECT  CASE  *•* 

C 

GO  TO  ( 1000,2000, 3QQQ ) ,SYSOSN 
C 

C  •••  CASE  1  *•* 

C 

1000  kPITE(ITY0UT,lC3) (SYSSET»I),I=1,4) 

LIN£:i4 

NPAGE=1 

00  1100  L=1,NSYS 
LL=1 

00  1200  LLL  =  1,N0PR*< 

IF  (ELIH  iLL,L,LLL) .£&.0)G0  TO  12CC 
C 

C  m**  PAGING 
C 

CALL  PAGER  ( LINE , NP AGE  ,  5  ) 

IP(HNE.E0,0)  .RITE  (ITYOUT,!)  1  OBN  AHE  ( M  )  ,  M  =  1 , 4  ) ,  S  YSDS  N  , 

C  (SCNOSC ( ICHOIC,M) ,M=1 ,15) ,NPAGE 
IF(LINE.EQ.O)  LINEX4 

K=ELIH(LL,L,LLL) 

C 

C  «*«  GO  TO  CORRECT  PARAMETER  *** 

C 

IF INUMiK ) .EO* 1) 60  TO  1110 
IF  (RATEO  (K  )  .EQ.  DGO  TO  1120 
IF<YN«K)  .EG. 1)60  TO  1130 
1200  CONTINUE 

1100  CONTINUE 

GO  TO  9190 
C 

C  NUMERICAL  PARAMETERS  **♦ 

C 

1110  60  TO  (1111, 1112, 1113), IRANGE(LLL) 

nil  WRITE  (  ITYOUT  ,  104  )  {SYSNAM(L,M)  ,M  =  1 ,4  )  ,  (PARN  am  (K,M  )  ,M  =  1  ,4  )  ,  ABV  (  K  ) 

LINEXLINE^E 
GO  TO  1200 

1112  WRITE) ITYOUT, 105) (SYSNAM(L,M),M=1,4),(PARNAM(K,M),k=1,4), 
t  BCLb(K) 

LINE=L1NE*2 
GO  TO  1200 

1113  WRITE(  ITYOU'*’,  106)(SYSNAM(L,'*),M=i,4),(PARNAM(K,*'),M  =  l,4), 

Z  PL0i,P(K),(PARNAM(K,M),M  =  1,4),HIR(K) 

LlN£=LlNE+5 
GO  TO  1200 
C 
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c 

c 

112C 


c 

c 

c 

1130 


C 

C 

C 

2000 


C 

c 

c 


2300 

2200 

2100 

C 

c  *** 

c 

2110 

2111 


2112 


2113 


RAT^O  PARAHETERS  *** 

JJ=IRAN6E (LLL  ) 

■  RITE  (  ITYOuT  ,  107)  (SYSNA**(L»M)  ,M=1,4)  ,  (  PARNA*'(K  ,H)  t  K=1 ,4  )  , 

<IQUALT«JJ,''),M  =  1,3) 

LIN£=LIUE*2 
GO  TO  1200 

QUALATATIVE  PARAMETERS 

■  PITEdTYOUT.lOe)  (SYSNAM(LtM»,M=l,4),(PARMAM(Kt»'),M  =  l,4) 

LlSErolNE^? 

GO  TO  120C 

CASE  2  **• 

<.RITE(ITY0UT,1C9)(SYSSET{I),I=1,4),(sE1SET(I),I  =  1,4) 
LTNE=14 
NPAGE=1 

00  2100  L=1,NSYS 

00  2200  LL:1,INCEX 

OC  2300  LLL=1 ,NOPRM 

IF(ELIM(LL, L, LLL)  .EQ. 0)60  TO  2300 


PAGING  *** 

call  pager  <LlN£,NPA6£tS) 

IF  (LINE. £0.0)  WRITE  (ITYOOT,!)  I OBN  AME  (  M  )  *  M=  1 , 4  )  ,  SYSPS  r 
(SCNDSC( ICHOIC.MM ) ,MM  =  1 , IS)  ,NPAGE 

IF  (LINE.EQ.O)  LlNEr4 

K=£LIM (LL  iL  fLLL  ) 

IF (NUM(K  )  .EC* 1  )60  TO  2110 
IF(RaTED(K)  .EO.DGO  TO  212C 
IF  (YN(K)  .EC. 1)60  TO  2130 
CONTINUE 
CONTINUE 
CONTINUE 

GO  TO  9190 

NUMERICAL  parameters  *** 

60  TO  (?H1, 2112, 2113)  ,IRANGe(LLL) 

-RITE(ITYCUT,110)  (SYSNAM(L,M),M=1,4),  (SUeiNMCLL.K)  ,►'=1,4)  , 
(PAPNAM <K ,M) ,M=1 , 4 ) , A9V(K) 

LINE  =  LlNE-»2 
GO  TO  230C. 

W'RIT£(ITY0UT,111)(SYSNAMcl,M),)»=1,4),(SUB1NM«LL,^*),m=1,4), 

(PARNAM^K,^'),^1=l,^),eELW^K) 

LINE=LlN£-»2 
60  TO  2300 

KRITr(ITY0UT,112)(SYSNA‘'(L,M),M  =  l,H),(SUBlN»'(LL,M),»':i,4), 
(PAPNAM(K,M),^^=1,4)  ,RL0WR  (K),(PARNAM(K,«),M  =  l,4),HIRtK) 
LIN£:lINE*5 
GO  TO  2iOL 
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C  mm*  RST€u  PARAM^Tt-RS 

2120  JjrIRANGE (LLL) 

2121  •pIT£{ITYCUT,H3)«SYSNA“(L,H»,M=1,4J,(SCS1N^'(LL,M),‘'  =  1,‘4), 

£  JPAPNAM  JK ,« ) ,H  =  1 ,4 ) , (ICUALT ( JJ,M) ,M  =  1  ,3  ) 

LINE=LIN£>2 
GO  TO  2300 

C  mm*  CUALATATIVE  PARAMETERS  ••• 

2130  hOITE  ( ITYCUT,  1  i4  >  (SYSNAM  (L,M  )  ,M=1,4  ) ,  (SUE1NH(LL,K»  ,‘'=1  ,4  )  , 

€  (PARNAHtKtM),^:!,^) 

LlNE  =  LINE-»2 
GO  TO  2300 
C 

C  »*•  CASE  3 
C 

3  000  WSITt(ITY0UT,115MSYSSET(I),l:l,4l,(SBlSET(I),I  =  l,4),(SB2SET(I), 
C  1=1,4) 

LINErl** 

NPAGE=1 

00  3100  L=1,VSYS 
IN0XX=0 

00  3200  L1=1,NSUE1 
00  3300  LL=1,NSUB2 
INliXX  =  INOXX-»  1 
J=InOXX 

00  3400  LLL=1,N0PRM 
IF(£LIM(  J,i,,LLL)  .£0.0)GO  TO  3400 
C 

C  **•  PAGING 
C 

CALL  PAGER  C LInE ,NP AGE , 5  ) 

IF  (LINE. £0.0)  WRITE  (ITYCUT,!)  (CBNA''E(M), 
t  M  =  1,4),SYS0SN,  (SCNOSC  dCHOIC,*'  )  ,Mri ,  1?  )  » 

C  NPAGE 

IF  (lINE.Ew.O)  LlNe=4 

K=ELIM ( J,L,LLL) 

IF(NUM(K)  .EU.1)G0  to  3110 
IF(RAT£0(K)  .EC.DGO  TO  312C 
IFtYN(K).E0.1)G0  TO  3130 
3400  CONTINUE 

3300  CONTINUE 

3200  CONTINUE 

3100  CONTINUE 

GO  TO  9190 
C 

C  •*»  NUMERICAL  PARAMETERS 

GO  TO  (3111,3112,3113) ,IRAu6E(LLL) 

«RITE(ITY0uT,116)(SYSNA>*(L,M).Mri,4),(SUBlN''lLl,M),*':l,4), 
<SU5  2NM(Ll,LL,M),M  =  l,4),lPAe'NAM(K,M),»‘ri,4),A9V<K) 
LlN£rLlNE*2 
GO  TO  3400 

■  RITE  ( IT  Y  CUT  ,  117  )  (SYSNA**  (L,M  )  ,M=1 ,4  )  ,  {  sue  INMILl  ,M)  ,  -rl  ,4  )  , 
ISue2NM(Ll,LL,M),M  =  l,4).{PAPNAM(K,M),K=i,u)  ,BELW  (  *<  » 

LIfiE  =  LlNE^2 


C 

3110 

3111 

C 


3112 

C 
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GO  TO  340Q 

3113  WOITEJ  ITYOUT  ,  11 0  )  (  SY  SN  AM  |L  .f*  )  ,  M=  1 , 4  )  ,  I  SUB  INh*  ( L  1  ,M  )  ,  M=  1  ,  u  )  , 

C  (SUB2NM (L1,LL, M ) ,M=1 ,4 ) , (PARNAM (K,m) ,m=1 , 4 ) ,PLOkP (K) , 

C  (PARNA-IK,**)  ,M=i,4)  iHlRlK  ) 

LIN'E=LINE-»5 
GO  TO  343u 

C 

C  •**  RATED  PARAMETERS  *** 

C 

3120  JJ  =  IRANGE (LLL  ) 

»PITE(ITY0UT,119) (SYSNAM(L#M),Mri,4), (SUBlN-JLltM) ,“=1,4) , 
C  (SUB2NM(Ll,LL,M),Mrl,4»,(PARNAM(K,M),M=l,4), 

L  (7QUALT ( JJ,M ) ,M=1 t3) 

LlN£=LlNEO 
GO  TO  340o 

C 

C  QUALATATIVE  PARAMETERS  •** 

C 

3130  4PITE(ITY0UT,12C)(SYSNAM(L,*')tM=l,4),(SUBlMM(Ll,M),M  =  l,4), 
t(Sue2NM(Ll,LL,M),'^  =  l,4),(PARNAM<K,M),M  =  l,4) 

LI\'£rLl.\E*2 
GO  TO  3400 

C 

c  format  statements  **• 

C 

I  F0RMAT(lHl,72tlH*)/lX,5X,4A4,5X,5HCASE  ,11»3X, 

C  17HELIMINATI0N  T A 8LE , / , IX , 1 5 A4 , 5 X , 5hP AGE  »I2,/, 

C  lX,72(lH*n 

101  FORMAT  (/30X,17HELIMINATI0N  TABLE/) 

102  format  (10X,15A4,//) 

103  format  (11X,4A4,10X,24HREAS0NS  FOR  ELIMINATION  ,/llX, 

C  16(1H-J,10X,23(1H-)/) 

104  F0RmaT<1X,10X,4A4,10X,4A4,1X,1H<,F12.3) 

105  F0RmaT(1X,1CX,4A4,1CX,4A4,1X,1H>,F12,3) 

106  F0RMAT<1X,10X,4A4, 1  OX , 4  A  4 , 1 H< , F 1 2 . 3 /I  X , 5 4 X , 2H0 R/ , lX,36Xt 
C  4A4, 1h>,F12.3) 

107  format (1X,10X,4A4,10X»4A4,1H<,3A4) 

108  F0R“AT(1X,1CX,4A4,10X,4A4) 

109  FOR-AT  <1X,4A4,5X,4A4,5X,23HREASCnS  FOR  ELIMINATION,/, 
C1X,16(1H-),EX,1611H-),5X,23C1H-)/) 

no  F0RmaT<1X,4A4,5X,4A4,5X,4A4,1X,IH<,F12.3) 

111  F0RMAT(lX,4a4,SX,4A4,5X,4A4,lX,lh>,F12.3) 

112  F0RMaT(1X,4A4,5X,4A4,5x,4A4,1H<,F12.3,/1X,6CX,2H0R,/1X,o2X, 

C  4AU,1H>,F12.3) 

113  FCRMAT(1X,4A4,5X,4A4,SX,4A4,1X,1H<,1X,3A4  ) 

114  format ( 1X,4A4 ,5X , 4A4, 5X , 4A 4  ) 

115  format  (57X, IIHPEASONS  FOR , / 1 X , 4 A4 , 2X , 4 A4 , 2 X , 4 AU  ,  6 X  , 
t  IIHEL IMINATI ON, /IX, 4(16(1 h-),2X)/) 

116  format (1X,4A4,2X,4A4,2X,4A4,2x,4A4,1X,1H<,F12.2) 

117  F0RMAT(1X,4A4,2X,4A4,2X,4A4,2X,4A4,1X,1H>,F12.3) 

118  F0R“AT(1X,4A4,2X,4A4,2X,4A4,2X,4A4,1h<,F12.2/1X,59X,2HCP/ 

C  ,1X,54X,4A4, 1H>,Fi2,2) 

119  F0RMAT(lX,4a4,2X,4A4,2X,4A4,2X,4A4,2H  <,3*4) 

120  F0RMAT(1X,4A4,2X,4A4,2X,4A4,2X,4A4) 
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919C 

C 

C  »• 

c  «* 

c 


c 

c 

c 

c 

c 


CONTINUE 

END 


0VE9LAY(SSM,5tu) 
PROGRAM  INVPT 


THIS  POUTINE  INVERTS  PARAMETER  OaTA  SC  THAT  LOW  VALUES 
CONSTITUTE  THE  BEST  UTILITY 


COMMON /HOO 1 /S YSOSN, NSY S ,NSUB1 ,NSUB 2, NP ARM, 

C  SYSSETfH) ,SolSET(M J , S62S£T(M) , 

C  SYSNAMdG,**)  ,SUblNM  (20,4),SUB2NM(10,10,4),PARNAM(Ma,9), 

L  N  u*'(«»Q>,ratE0(4C),YN(MQ),  IN  V£RT(«C), INDEX 
C(;M*«ON/UNITNO/ITTYIN,ITYOUT,IPPH,1UPPH,IPP,  I'iOP,IVPAR*',TsYS 
Cl MENS  ION  0UM(in),PARAM<85,10),VPARAM(85,lC 
INTEGER  SYS0SN,SYSSET,SB1SET,S32SET,SYSNA-,  ?  INM  ,  P  ARN  A** , 

€  RATED, YN,SUfa2NM 
C 

REWIND  IPP 
REMIND  IVPARM 
C 

C  •••  INITIALIZE  VPARAM  TO  ZERO 
C 

00  50  jri, INDEX 
CO  50  JJS1,NSYS 
VPAOam ( J,  jjjsc 
SO  continue 
c 

c  «*»  read  in  parameter  data  *** 

C 

CO  100  i:i,NPARM 

IFdNVERTdJ  .EG.OGO  TO  101 
C 


DO  30C  K=l, INDEX 

READ(IPP,*)(PARAMtK,KK),KK=l,NSYS) 

300  CONTINUE 
C 

C  m*m  FIND  LARGEST  VALUE  FOR  EACH  SYSTEM 
C 

DO  400  KK  =  1,.SSYS 
816=0.0 

DO  450  K  =  l, index 

IF(PARAM(K,KK).GT.SI6)SIG=PAPAMCK,KK) 
450  CONTINUE 

C 

c  ««*  INVERT  parameter  VALUES 
C 


DO  460  L=l, INDEX 

IFtPAPAM(L,KK J  .EC.O)GO  TO  460 
VPARAM(L,KK)=BIG/PARAM(L,KK) 


303 


‘♦6a  ccminue 

c 

•♦00  ccntimu!: 

c 

c  »*•  OUTPUT  parameter  VALUES 
C 

CO  SCO  Lirl, index 

WRITE(lVPARM,*)tVPARAH(Ll.LLl)»LLl=lfNSYS» 

500  continue 

c 

100  continue 

c 

GO  TO  9190 
C 

c  m*m  If  parameters  VALUES  DON'T  NEED  INVERTING  WRITE  OUT 

C  *mw  parameter  values  *** 

101  00  2QC  J=1,IN0£X 

KEAO(IPP,»)(PARAM(J,KLK),KLK=ltNSYS> 
».0ITE<lVPARr,*)(PARAM(J,KMK),KMK  =  l,NSYS) 

200  continue 

GO  TO  ICO 
C 

C  format  STATEMENTS 

C 

1  FORMATiAl) 

9190  continue 


0VERLAY(SSM,6,0) 

PROGRAM  UTILT 
C 

c  m******^******m********mmm**m*m***m*m^^»m*mmmm********%mm** 

C 

C  THIS  ROUTINE  determines  ThE  SYSTE-  VALUE  OR  UTILITY 

C  FOR  EACH  SYSTEM 

C 

C  »•♦*•*♦•,•*♦*«.**♦*•*»*•*»»*•  <t*****, »,»»**•**•••, *»****.***#» 

C 

COMmon/HDR 1/SYS  DSN, NS Y S ,N SUB  1 fNSU92»NP ARM, 

C  SYSSET(‘4  )  ,  S81SET  (  9  )  ,  SB2SET(4)  , 

C  SYSNAMdO.ui.SUBlNMCSC,*^)  ,SUB2NM  (10»10.‘4),PaPNAM(40,4), 

C  NUM(4a),RATED(4a),YN(4C),INV£RT(40>,lN0EX 
COMMON /UN ITNO /ITTYIN, ITYOUT, IPPH , lUPPH , IPP , lUPP , I VPARm ,  IS YS 
C0MMON/RTNG/RATlNG(4aJ 
COMMON/PAPamJ/MATRIX (40,7,10) 

COMMON /P  AR  A“  1  /N0P=‘M,CHPPM  (  ^^  )  ,  A6  V  (  40  )  ,  BEL  W  (  4  C  )  ,  ^LC -O  (  4  C  )  , 

C  HIP(4C),RTD(40),IRANGE(40),IS«NO(4C) 
CCMM0N/paPAM4/SYSNRM(85,1C) 

COMmon/DB/DPNAME ( 4  ) 
dimension  PARAM(e5,lC) 

INTEGER  SYSDSN,SYSS£T,SB1S£T,S52SC  C  1-  CL 
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t  PAPNaK,R«T^O.  YN 

INTEGER  ChPRM,03N4ME 
QATA  IYES/3MYES/ 

C 

C  initialize  SYSNPH 

c 

REtaINO  IVPaRM 
CC  EQ  J=l, INDEX 
CO  5C  Jjri.wSYS 
SYSNRHCJ, JJ):3 
50  continue 

C 

C  FIND  TOTAL  SUK  OF  RATINGS 

C 

SUM*'rn 

DO  eOC  Jlri.NCPRM 
KrCHPPM ( JI 1 
SUMVrPATlNG ( K  )  ♦  SUHM 

SCO  continue 

c 

c  ***  NORMALIZE  Ratings 
c 

DO  esc  LJ:1,N0PRM 
KPrCHPR“(LJ) 

RATING (KR)rP ATI NG(KR)/SUMM 

esc  CONTINUE 

c 

C  *•*  READ  IN  INVERTED  PARAMETERS 
C 

CO  ICO  i=i,nparm 
DO  110  Iin, INDEX 

REA0(IVPARM,»)(PARAM(II,III),1II:1,NSYS) 

110  CONTINUE 

C 

C  »*»  ZERO  OUT  PARA^^ETLPS  AND  FIND  THE  LARGEST  L  SMALLEST 
C  *•*  VALUES  among  the  SYSTEMS 
C 

00  120  11=1, INDEX 

aiG=c.o 

small  :  1E2C 

00  130  III=1,NSYS 

PARA“(II,III)=MATRIX(I,ir,riI)*PARAM(II,III) 

C 

IF(PaRAM<II,III).EQ.O.C)GO  TO  130 
IF(PARAM(II,III > .LT .small )SMALL=P ARAM ( II  ,III) 
IF(PARAM(II,III).GT.BI6)9IGrPARAM(II»III) 

130  CONTINUE 
C 

C  »*»  CALCULATE  utility 
C 

DC  IVO  III=1,NSYS 

ir(PAPAM(i:,III) .EC.O.OIGO  TO  140 
IF(SIG.£C.iMALL)UTIL=l 
IF(BIG.EC.SmaLL)GO  to  909 
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UTTL^HoIG-PARAKdltlll))/*  blfi-SKALL  J  ) 

909  PARAM<II, lil jruTIL 

C 

c  ***  CALCULATE  Rated  utiltiy  ••• 
c 

PARAMCIT, III) =P4RAM(I1, III) •rating (I) 

C 

C  •••  SUM  RATED  utilities  TO  FIND  SYSTEM  VALUE  •** 

C 

IF(«>APA-(II,III)  .EG.Q)G0  to  140 

SYSNRH(II,i:i)=PA9AM(II,III)  ♦  SYSN'PM(  II,  III) 

140  CONTINUE 
C 

c  •*•  normalize  the  system  value  •*• 

C 

C 

120  continue 
ICO  continue 

C 

c  print  results  IN  A  TABLE  ••• 

C 

LINE=34 

NPAGE=a 

call  paG£R(LINE,NPAGE,C) 

WP1TE( ITY0UT,2) 

READ<  ITTyIN,3)IANSR 

IFaANSP.EO.IY£S)CALL  OVERLAY  (  3HSSM  ,6 , 1 ) 

00  1000  1  =  1, INDEX 

wPITEdSYS,*)  (SYSNRMd  ,J),J=1,NSYS) 

1000  continue 

C 

c  format  statements  ••• 

C 

1  FORMATdl) 

2  FCRMAT(//,1X,m4H00  you  wish  to  see  tabular  output  ?  (vES/NC), 
C  /) 

3  FCRMAT(A3) 
cNO 

c 

c  «»i»*«4>««*»«***«*»«,*»***»***4.«*»«*»*«»«*»*«*«*i>*«**»**»*4i*,***. 

C  mmm*******m***m*m*m*m*m****m******mm****m***m*mm***m**m*m*****m 

C 

0VEPLAY(SSM,6,1) 

program  output 
C 

c  m*m*****m***mmm********mm*m**mm*mmmm**m**m***»*m*mm*m****** 

C 

C  THIS  ROUTINE  GIVES  THE  USER  A  CHOICE  OF  EITHER  TEKTRONIY 

C  GRAPHICS  OR  TABULAR  OUTPUT.  ThE  OUTPUT  CONSISTS  CF  SYSTEM 

C  values  that  have  DETERMINED  WHICH  SYSTEM  IS  OPTIMUM 

C 

C  «««««*»*«*«««4>*****»«*«*««4>«*««**«i*««***««««*»«*«*»»**»«*»,* 

c 

CCM-ON/HOPl/S YSDSN,NSYS,NSUB1 ,NSU92,NPARM, 


non 


'4 

M 


C  SYSS«■T(^),S81SET(M),S^2SfT»4), 

C  SYSN*K(1C,4)  ,SUBlN'i«2C,‘*l  ,  SUS2NM  ( 10  ♦  1 C ,  4  » ,  PARN  *  «  (  40  » 4  )  , 

E  (  4C  ), rated (40  ) ,  YK  (  40)  ,  INVERT  (40)  t  INDEX 
CCimmon/UNITNO/ITTYIN,ITYOUT*IPPH,IUPPH,IPP,  lUPPt  IVPARv,  isys 
common /PARA“4/SYaNRM (8  5, 10  ) 

COMM  ON /OB /OB  NAME ( 4  ) 

CO MMON/HOR2/NSCENfSCNOSC( 25,15 ) , INDEX  1  ,ICH0IC 

INTEGER  SYS0SN,SYSSET ,SBlSET,Sa2sETt STSNAM,SUB1NM ,SUB2NM, 

L  PARNAM, rated, YN,OBNAME,SCNDSC 
DIMENSION  IChAR( 10) ,10PT(10) 

DATA  ICHAR/lHAj IHB , IMC , 1 HO , 1  HE , I hP ,  1H6 , IHH , IH I ,  IH J/ 

DATA  IBLANK/IH  / 

C 

LINE=34 

NPAGE=C 

CALL  PAG£R(LIN£,NPAG£,0) 

C 

WRITE) IT YOUT, 11) (DBNAME(L99) ,L99=1,4) ,SYS0SN, 

C  (SCNDSC(ICHOIC,MM)  ,M**  =  1,15)  ,NPAGE 
WRITE( ITYOUT, 1) 

WPITE(ITY0UT,4) (0BNAME(M),M=1,4) 

WRITE ( ITYCUT ,5) (SYSSET (M ) ,M=l  ,4) 

LINE=9 

DO  HOC  lri,NSYS 

•  RITE (ITYOUT, 15) ICHAR(I) ,(SYSNA-( I, M),M  =  1,4  ) 

LINE=LIN£*1 
1100  CONTINUE 
C 

GO  TO  (1000,2000,3000) ,SYSDSN 

CASE  1 

1000  CONTINUE 
BI&=Q.C 
J=1 

00  1010  I=1,NSYS 

IF (SYSNPM ( j, I ) .GT.BIG )8IG=SYSNRM ( J, I ) 

1010  CONTINUE 
C 

DO  1090  KU=1,10 
IOPT(KU)=iaLANK 
1090  CONTINUE 
C 

ICOUNTSO 

C 

DC  1020  I=1,NSYS 

IF(8I6.NE.SYSNftM( j,i )  )G0  TC  1020 
C 

ICOUNTriCOUNT  ♦  i 
IOPT(ICOUNT)=ICHAP(I) 

1020  CONTINUE 
C 


IF(BIG.NE.C)GO  TO  1030 
•RITE( ITYOUT, 61 
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GO  TC  9193 


C 

C  TEKTRONIX  PAGING 

1Q3C  CALL  PAGCR(LlNCtNPA6C»6) 

IF  (LINE.EO.O)  HRITE(ITYOUT,ll>  J  D8NAM£  (  H  ) ,  PS 1 ,  ii  J  ,  SYST  SN, 

C  (SCNCSC(ICHOIC,H),M=lylS) ,NPA6E 
IF  (LINE.EO.O)  LINe=4 
CALL  WRTE(I0PT,J) 

LlNE  =  LINE-»6 
GO  TO  9190 
C 

C  CASE  2 

C 

2C00  CONTINUE 
C 

NCALL  =C 

00  2011  J=1,NSU81 
CALL  PAGER  (LINE,NPAGE,10) 

IF  (line. EC,. 0)  WRITE  (ITYOUT.ll)  (  DBNAME  (  P  )  ,Hr  1 ,4)  ,SYSDSN, 
C  (SCN0SC(rCH0IC,M»,N=l,15) ,NPAGE 
IF  (LINE.EQ.Q)  LIN£=4 

URITE(ITY0UT,7) (SUB1NM(j,M),m:1,4) 

LlNE=LIN£-.4 

BIG=O.Q 

DO  2010  ISI.NSYS 

IF(SYSNR»*(J,I).6T.aiGIBIG=SYSNRM(J,I) 

2010  continue 

c 

00  2090  KU=lfia 
IOPT(KU)=IBLANK 
2090  CONTINUE 
C 

IC0UNT=0 

c 

DO  2020  Iri,NSYS 

IF(BIG.Nr.SYSNRM(J,I) )G0  TO  2020 
ICPUNTrICOUNT  ♦  1 

IOPT(ICOUNT)=ICHAR(I) 

2020  continue 

C 

IF(B1G.NE .0)G0  T02030 
WPITE(ITY0UT,6) 

GO  TO  201.1 
C 

2030  continue 
C 

CALL  WRTEdOPTtJ) 

LlNErLINE+G 

C 

2011  CONTINUE 
GO  TO  9190 

C 

C  CASE  7  *** 

C 
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2CC0  continue 
INOXXXrO 
BIGrc.C 
NOA(?E  =  l 

CO  30H  K  =  1,NSUB1 
HNE=LIN£^** 

WPITE  (1TY0UT,7)  t  SUBINK  (K  ,**),  M  =  1 , 4  ) 

00  3012  KK=ltNSUB2 

CALL  PAGER  (LINE ,nPASE» 9) 

IF  (LINE. EC. 0)  tiRITE  (ITYOUT,!!)  ( DBNAKE  (  m  ) ,  K=  1  ,  4  )  ,  s  VSDSN  , 
E  (SCNDSC(ICHOiC,M) ,m=1,15) ,NPAGE 
IF  (LINE.EQ.Q)  LlNE=4 

3001  wPITE(ITY0UT,8) ( SUB2NH ( K ,KK , M ) ,Kri,4) 

LINE=LIN£*3 

IN0XXX=lN0XXX4l 

jriNDXXX 

oiG=0.0 

00  3010  I=1,NSYS 

IF (SYSNfiM( J,I ) .GT.BIG)9IG=SYSNPH( J,I  ) 

3010  CONTINUE 
C 

00  3090  KU=l,ia 
ICPT(KU)=IBLANK 
3090  CONTINUE 
C 

ICOUNTrC 

C 

00  3020  I=1,NSYS 

IF(eiG.NE.SYSNRH(j,I) )G0  TO  3020 
ICOUNTrlCCUNT^l 
I0PT(IC0UNT)=ICHAP (I ) 

3020  CONTINUE 
C 

IF(eiG.NE.0)G0  TO  3030 
LINE  =  LINE'»2 
l.PIT£(  ITYOUT,  6) 

GO  TO  3012 
C 

3030  CONTINUE 

C 

CALL  WRTEdOPT.J) 

LINE=  LlNE-^fc 
3012  CONTINUE 

3011  CONTINUE 
C 

C  mmm  FORMAT  STATEMENTS 
C 

1  FORmaTCIX,/) 

3  FCRmaT(II) 

4  FCRHATI 1X,T25 ,mUTILITY  VALUES  FOR  •,4A4/) 

5  format (IX, T32,4A4/» 

15  F0kMAT(1X,T32,A1,m  --  *,4X4) 

6  F0R*'AT(1X,*ALL  SYSTEMS  HAVE  BEEN  ELlMlNATEO  *) 

7  FORMAT  (  IX,//,  IX, 4H***  ,«*AH,4H  •••,/,  1  X  ,  1  6  ( 1  H- )  ) 
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8  FORMAT ( 6X ,444 , /6Xf  16  i  IH- )/ ) 

9  FORMaTCIX,//, 1X,7011H*»/»1X,7G(IH*)/) 

10  FCRMAT( IX,//,  IX, 

C  5jH  ♦•♦-ERROR-***  BAO  INPUT — STOP  EXECUTION  t  RESTART,/) 

11  F0R*AT(1H  ,72(1H^)/1X,5X,4A4,SX,5HCASE  ,I1,3X, 

C  20HUTILITY  values  TABLE  , / 1 X , 1 5 A4 , 5X , SHP A 6E  ,12,/, IX, 

C  72(1H^)) 

9190  continue 

ENO 
C 

c  «««««♦,♦*♦»♦♦♦♦♦♦«♦♦«♦♦♦♦♦♦♦♦♦♦♦♦♦♦*♦♦♦♦«♦♦♦♦♦*♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 
c  *♦,«,**.*♦*♦♦*•♦»•*♦•♦•♦»♦»♦♦♦♦♦••♦♦•••••♦••♦♦•♦♦♦♦♦♦♦♦♦♦♦♦♦♦•♦ 

c 

SUfcPOL'TINE  URT£(ICPT,J) 

C 

C  »*»♦♦♦*♦•♦♦♦♦♦♦♦♦»♦♦•♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦•♦♦♦*•♦•♦♦•♦♦♦••*♦*♦• 

C 

C  contains  the  rtRITE  STATEMENTS  FOR  THE  UTILITY  VALUE  TABLE 

C 

c 

common /HORl /SYS dsn, NSYS , NS UP  1 , nSUB2 , NPARM , 

C  SYSSET (4 ) ,SB 1SET( 4 ) , Se2S£T( 4 J , 

C  SYSNAM(10,4) ,SUblNM (20,4),SUB2NM(10,10,4),PARN4M(40,4), 

C  N UM (4C), RATE 0(40), YN(4a), IN VERTt40), INDEX 
C0M“0N/eARAM4/SYSNRM(8  5, 10  ) 

COM-ON/UMTNO/ITTYIN,  ITYCUT,  IPPH,  IUPPH,IPP,  lUPP  ,IVPARM  ,ISYS 
INTEGER  SYS0SN,SYSSET,SBlSET,Sa2SET,SYSNAM,SUBlNM,PARNA*, 

£  RATED, YN 

DIMENSION  ICHAR(IC),I0PT«10) 

DATA  ICHAR/IHA, 1H6, 1HC,1H0,1HE,1HF,1h6,1HH, IHI.IHJ/ 

C 

GO  TO  (1101, 1102, 1103, 1104, 1105, 1106, 1107, 1  109, 1109,11  10, NSYS 
C 

1101  RETURN 

1102  write ( ITYOUT, 1)(ICHAR(I),I=1,NSYS),(SYSSET{M),M=1,4) 
♦PITE(ITY0UT,2) (SYSNRM ( J,K ),Kri,NSYS),(IOPT{M),M=l,lG) 

RETURN 

1103  WRITE ( ITYOUT, 3) (ICHAR(I),I=1,NSYS),(SYSSET(*),m:1,4) 

.  WRITE  (  ITYOUT  ,4  )  (  SYSNRM(J,K),Kri, NSYS), (IOPT(M),''=  1,10) 

RETURN 

1104  WPITE(ITY0UT,5)<ICHAR(I),I=1,NSYS),(SYSS£T(k),m:1,4) 
WRITE(ITY0UT,6)(SYSNRM(J,K),K=l,NSYS),(I0PT(M),MZl,lu) 

RETURN 

1105  WRITE (ITYOUT, 7)  ( I CH AR ( I  )  , I  =  1 , NS Y S ) , ( S YSS ET ( « ) , Mr 1 , 4 ) 

»RITE  (  ITYOUT,0  )  (SYS  NRM(J,K),Kri,f.SYS),(IOPT(M), *=1,10) 

RETURN 

1106  i.lJlTE(  ITYOUT,  9)  (ICHAR(I),I  =  1,NSYS),(SYSSET(**),M  =  1,4) 
wRITt(ITY0UT,i0)(SYSNRM(U,K),K:i,NSYS),(10PT(M),M=l,lC) 

RETURN 

1107  WRITER ITYOUT, 11 ) (ICHAR(I),I:1,NSYS),(SYSSET(M),*=1,4) 
WRITE(ITY0UT,12)ISYSNRM(J,K),K=1,NSYS),(I0PT(M),m=1,10) 

RETURN 

1106  wPIT£(ITY0UT,l3)(lCHAR(I),irl,NSYS),(SYSSET(M),*=l,4) 


nlPlTcJ  ITYOUT»  1<4  )  ISYSNRK  t  J»K)  ,K  =  1  ,»1SYS)  t  llOPT  {-  )  ,W  =  1  ,IP  ) 
RETURN 

11  j9  wRITE(ITYCUT,15)ITCHAR(I),I=1,NSYS),(SYSSET(M),m=1,4) 

kRITt  < ITYOUT, 16 ) (SYSNRH ( J,K  » ,K  =  1 ,MSYS ) , ( lOPT (M  )  ,M  =  1 ,10  ) 
RETURN 

1110  WRITE « ITYOUT , 1 7 ) ( I CH AR ( I » , 1= 1 . NS YS ) , (SYS SET (M  )  ,K=1 ,4) 

WRITE ( ITYOUT, lo ) ( S YSNRM ( J , K I ,K=1 , NS YS ) , ( lOPT ( “ ) ,M= 1 , IP ) 
RETURN 
C 
C 

C  FORMAT  STATEMENTS 

C  *** 

C 

1  F0R*'AT(lX,iax,7H0PTIMUM,/lX,3X,  A1,7X,  Al,7y,4A4,/) 

2  F0RMAT(1X,2(F5.3,2X},5X,1Qa1,//» 

3  FORMAT ( 1X,26X,7HUPTIMUM,/1X, 2X,3( Al,6X),4A4,/) 

4  format ( IX ,3 (FS . 3, 2X ),5X,1CA1,//) 

5  FORMAT ( 1X,31X ,7H0PT1MUM ,/lX, 3X,4 (A1,6X),4A4,/) 

6  F0RMAT(1X,4(F5.3,2X),5X,10A1,//» 

7  FCRMAT(1X,38X,7HCPTIMUM,,/,1X,3X,5 (A1,6X),4A4,/) 

8  FORMAT ( 1X,S (FS. 3,2X ) , SX , 1C Al ,// ) 

9  format ( 1X,4  6X ,7H0PTIMUM,  ,/,1X,3X,6(A1,6X),4A4,/) 

10  FORMAT! lX,6(F5.3,2X),SX,10Alt//) 

11  FORMAT ( 1X,54X ,7H0PT1MUM, ,/,lX,3X,7(Al,6X),4A4,/) 

12  FOR- AT (1X,7(F5,3,2X ) , SX , lOAl , // ) 

13  FCRMAT(1X,62x,7H0OTIMUM,,/,1X,3X,?(A1,6X),4A4,/) 

14  format < 1X,8(FS. 3, 2X),5X,10A1,//) 

15  F0RMAT(1X,7CX,7H0PTIMUM, ,/,lX,3X,9(Al,6X)  ,4A4,/) 

16  FCRMAT(1X,9(F5.3,2X),SX,10A1,//) 

17  FORMAT (IX, 72X ,7H0PTIMUM ,,/,lX,3X,10(Al,6X),4A4,/) 

18  F0RMAT(1X,10(FS.3,2X),SX,1CA1,//) 

ENO 
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OVERLAY (GPF,0,0) 

PROGRAM  GRAPHX (INPUT, OUTPUT, HE ADER,SYSNUM,T APE 10=HEA0ER, 
t  TAPE1S=SYSNUK,TAPE2=0UTPUT,TAPE5=INPUT) 
Cm*mm*m*m*m*******mmm***mmmm0m0m^***mmm*****m**»*******«0m* 
C«««  «*• 

C«  This  PPOGRAM  DISPLAYS  ON  GRAPHS,  USING  THE  TEKTRONIX  • 

C*  PLOT-IO/TERMINAL  CONTROL  SYSTEM,  THE  OUTPUT  OF  THE  • 

C*  SYSTEM  SELECTION  MODEL  PROGRAM.  TWO  TYPES  OF  GRAPHS  ♦ 


C* 

CAN  BE  PRINTED 

,  TIME  GRAPHS(WHICH  PLOT  TIME  VERSUS 

c* 

SYSTEMS) 

OR  SYSTEMS  VERSUS  THE  OPTIMAL  VALUES.  GRAPHS 

c* 

CAN  VARY 

FROM 

GRAPHING  TWO  TO  TEN  SYSTEMS. 

c* 

c* 

c* 

DESCRIPTION  OF  VARIABLE  NAMES 

SYSDSN 

* 

INDICATES  DESCRIPTION  OF  THE  PROBLEM 

c» 

1  -  JUST  SYSTEMS  INCLUDED 

c* 

2  -  SYSTEMS  AND  LEVEL  ONE  SUBSYSTEMS 

c* 

3  -  SYSTEMS  AND  BOTH  SUBSYSTEMS 

c* 

NSYS 

- 

NUMBER  OF  SYSTEMS 

c* 

Nsuei 

- 

NUMBER  OF  LEVEL  ONE  SUBSYSTEMS 

c* 

NSUB2 

- 

LARGEST  NO.  OF  LEVEL  2  SUBSYSTEMS 

c* 

NPAPM 

- 

NUMBER  OF  PARAMETERS 

c* 

SYSSET 

a* 

GENERAL  SETNAME  FOR  THE  SYSTEMS 

c* 

SBISET 

- 

GENERAL  SETNAME  FOR  THE  LEVEL  ONE 

c* 

Se2SET 

- 

GENERAL  SETNAME  FOR  THE  LEVEL  TWO 

c* 

SYSNAM 

- 

SYSTEM  NAMES 

c* 

SUBINM 

- 

LEVEL  ONE  SUBSYSTEM  NAMES 

c* 

SUB2NM 

- 

LEVEL  TWO  SUBSYSTEM  NAMES 

c* 

PARNAM 

- 

parameter  NAMES 

c««* 

** 

c««* 

** 

•  ••  CO»'MON  STATE'^ENTS  »** 

COMMON/UNITNO/ITTYIN,ITYOUT,IHDR ,ISYS 

COMMON/HORl/SYSOSN,NSYS ,NSUB1 ,NSUBZ,NPARM,SYSSET (2) , 

C  SB  1  SET (2 ) ,SB2SET(2) , S YSNAM ( ID , 2 ) , SUB INM ( 20 , 2 ) , 

C  SueZNM (10,10,2) ,PARNAM (40 ,2 ) ,NUM(HC ) .RATED (40 ) , 

C  YN(40) ,INVERT(4C) , INDEX 
COMMON/P ARA-H/SYSNRM (85, 10 ) 

COMMON/GRAF/VAL( 7 ),SYST(8),IYEARS(G),ISYST(15),ISIZE(15), 

C  YARRAY(11),XAR(4),RSYS,IKEY(5), lONE (4) , ITWC ( 4 ) , ZTHREE ( « ) , 

C  IF0uR(4),IFIVE(4),ISIX(4),ISEVEN(4), IEIGHT ( 4 ) , IN INE ( 4 ) , 

C  ITEM ( 5) ,SYSNA(2),SBlNME(2),Se2NME(2) , ICOLON ( 4 ) , JQ a UO , JTER M 

*0*  INTEGER  STATEMENTS 

INTEGER  SYSDSN,SYSSET , SB 1SET,SB2SET ,S YSNAM, SUB INM , 

C  SU92NM,PARNAM,RATE0, YN, VAL,SYST ,SYSNA 
INTEGER  SS1NME,SB2NME,NSYS2 


04TA  lN0/2HN0/tIYES/3HYES/ 

REWIND  ISYS 
REWIND  IHOR 
C 

C***  DOES  USER  WANT  A  GRAPH? 

C 

WRITE  CITY0UT,18J 

la  FORNAT  (IH  ,43H00  YOU  WISH  TO  SEE  GRAPHIC  OUTPUT?  (YES/NO),/) 
READ  (ITTYIN,19)  lANSR 
19  FORMAT  (A3I 

IF  (lANSR.NE.IYES)  60  TO  999 
C 

C***  GET  TEKTRONIX  INITT  ( 13 AUD , JTERM )  PARAMETERS 
WRITE  (ITY0UT,1» 

1  FORMAT  (IH  ,«45HENT£R  CHAR/SEC  (I.E.,  300  BAUD  =  30  CHAR/SEC),/) 
READ  (ITTYIN,*)  ISAUD 

WRITE  (ITY0UT,2) 

2  format  (IH  ,20HENT£R  TERMINAL  TYPE:,//,1H  »  14H 1 =40 10 , 4 D 1 2/ 1 3 , 
t  /,1H  ,9H2=4014/l5,/tlH  , SOH 3=4 0  14 / 1 5  WITH  GRAPHICS  MODULEt/l 

READ  (ITTYIN,*)  JTFRM 

CALL  0VERLAY(3H6RF« 1,0) 

DO  ICO  1=1, INDEX 

REAOIISYS,*) (SYSNRMII,J),U=1 ,NSYS) 

100  CONTINUE 

RSYS=NSYS 

C 

C«M*  SETS  VALUES  FOR  X -COORDINATES  OF  GRAPHS 
C 

XAR(1)=-1. 

XAR (2)=RSYS 
XAR( 3)=1. 

XAR(4)=1. 

IF(SYSOSN.EO.l)  CALL  0 VERL AY ( 3HGRF , 2 , 0 ) 

IF (SYSOSN.EQ  .2  )  CALL  OVERLA Y < 3HGRF , 3 , D ) 

IF(SYSDSN.E0.3)  CALL  0 VERL A Y ( 3HGRF , 4 , 0 ) 

999  STOP 
END 

SLOCK  DATA 

C0MM0N/6RAF/VAL(7) ,SYST(8) ,IYEARS(6) ,ISYST( 1S),ISIZE(15), 
t  YAPRAY(ll),XAR(4),RSYS,lKEY(S),I0NEi4),ITWC(4),ITHREE(4), 

C  IF0UR(4),IFIvE(4),ISIX(4),ISEVENf4>,IEIGHT(4),lNINE(4), 

C  ITENt  S) ,SYSNA(2) ,SB1NME (2) »SB2NHE(?> ,ICCL0N(4 ) ,IBAUD, JTERM 
C0MM0N/UNITN0/ITTYIN,ITY0UT*IH0P,ISYS 
C 

C««*  DATA  FOR  GRAPHS  WRITTEN  IN  ASCII  •** 

C 

DATA  lYEARS/S,89,69,6S,82tB3/ 

DATA  IS YST/14, 83, 89, 83, 84, 69, 77, 32, 32, 86, 65 ,76, as, 69, 83/ 
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DATA  rSIZE/ 1  4, 8 3, 73, 90, 69 » 32, 80, 65, 82,65, 77  ,69,84,69,82/ 
DATA  VAL/6,e6,65,76,8S,69,83/ 

DATA  SYST/7,83,89,83y84,69,77,83/ 

DATA  IKEY/4,7S,69,89,S8/ 

DATA  ICOLON/3,32,32,58/ 

DATA  IONE/3, 49, 32,61/ 

DATA  ITWO/3, 50, 32,61/ 

DATA  ITHREE/3,51,32,61/ 

DATA  IF0UR/3,S2,32,61/ 

DATA  IFlvE/3,53,32,61/ 

DATA  ISlX/3, 54, 32,61/ 

DATA  ISEVEN/3, 55, 32,61/ 

DATA  IETGHT/3,56,32,61/ 

DATA  ININE/3, 57,32,61/ 

DATA  ITEN/4,‘49,4o,32,61/ 

DATA  ITTYIN,ITY0bT,lH0R,lSYS/2,5,10,15/ 

END 

0VEPLAY(GRF,1,0) 

Cmm*m*m*m*m***mmm**m******m*9*m*mm*mm*****m******m9*m***mmm 

C*** 

C*  THIS  overlay  reads  IN  THE  NECESSARY  DATA,  OUTPUT  FROH  • 

c*  the  system  selection  model  program,  the  data  files  • 

C*  ARE  "HEADER"  AND  "SYSNUM";  THEY  MUST  BE  ATTACHED  BE-  • 

C*  FORE  THE  PPOGRAM  WILL  EXECUTE.  * 

C***  *•* 

C9*9m*****»mm**999**m*m9**m99*99**9*m99999m9*99*99999***99m 

c***  •** 

program  readr 

•**  COMMON  STATEMENTS  ••• 

C0MM0N/UNITN0/ITTYIN,ITY0UT,IH0R,I5YS 

C0MM0N/HDR1/SYS0SN,NSYS,NSUB1,NSUB2,NPARM,SYSSET ( 2)  , 

C  SB1SET(2) ,SB2SCT(2) ,SYSNAM(10,2),SU61NM(20,2)  , 

C  SUB2NM( ID, 10,2 > ,PAPNAM<40,2>,NUH(4C) ,RATE0(40)  , 

C  YN ( 40 ) , INVERT( 40  )  ,1N0EX 
C0MM0N/0B/08NAHE(2) 

COMMON /PARA>'4/SYSNRM  (8  5, 10) 

INTEGER  statements 

INTEGER  SYS0SN,SYSSET ,SB1SET,SB2SET,SYSNAM,SUB1NM, 

C  SUB2NM, PARNAM, rated, YN,OBNAME 

READ  IN  DATA  BASE  NAME  ««• 

REA0(IH0R,3) (0BNAMC(M),M=1,2) 

READ  IN  SYSTEM  DESIGN 

REA0(IHDR,1»SYSDSN 

C 

C  •••  READ  IN  NO.  OF  S  YS  TEMS  ,  SUB  SYSTE*<S  ,  P  AR  AMET  ERS 
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c 


R£A0(IH0R,2)NSYS 
REA0(IH0R,2)NSUB1 
RCAD(IH0R,2)NSUBZ 
RrAD(!H0R,2)NPAPM 
ir(NSYS.£0.0)  60  TO  600 
C 

C  READ  IN  SETNAMES 

C 

READ (IH0R,3» (SYSSET(1),I=1,2) 

ir(SYS0SN.6E.2)REA0(lH0R«3)(SBlS£T(I),I=l,2) 
IF(SYS0SN.£0«3)REA0 (IH0Re3) (SB2SET (I )  tl  =  l,2  ) 

C 

C*mm  PEAO  IN  SYSTEM  NAMES  ••• 

DO  ICO  I=1,NSYS 

P£AOf  IHDP,3J  (SYSNA-d  ,J»  t  J=lt2) 

CONTINUE 

IFCNSUB1.EQ.Q)60  TO  400 

REAO  IN  SUBSYSTEM  LEVEL  ONE  NAMES 

DO  200  I=1,NSUB1 
PEAD(1H0P,3) (SUalNM(I,J) ,J=l,2l 
CONTINUE 

IE(NSUB2.£Q.0)  60  TO  400 

READ  SUBSYSTEM  LEVEL  TiiiO  NAMES 

DC  300  K  =  UNSUB1 
DO  300  I=1,NSU82 

PEAC( IH0R,3 ) (SUB2NM(K  tl tJ=I*2> 

CONTINUE 

CONTINUE 

READ  IN  parameter  NAMES  AND  PARAMETER  CHARACTERISTICS  ••• 
00  500  I=1,NPARM 

REA0(IH0Rt41 (PARNAM<I,J),j:i,2),NUM(I),RATE0(I>tYN(I), 


t  iNVEPTrl) 

500 

continue 

60  TO  700 

600 

WRITE(ITY0uT,5» 

CALL  EXIT 

C 

C  CALCULATE  INDEX  FOR  POSITIONING  FILES  *•* 

C 

TOO  CONTINUE 

IFINSUBI.EO.O)  60  TO  800 
IF(NSUB2.EG.C )  60  TO  900 
INDEX:NSUP 1*NSUB2 


C 


100 

C 

c  ««* 

c 


200 

C 

c  ««« 

C 


300 

C 

400 

C 

c 

c 


t 
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GO  TO  IQOO 
803  iNOExn 

GO  TO  1000 

900  IV0CX=NSUB1 

1000  continue 

C 

C  ♦••FOPMAT  STATE^*ENTS  ••• 

C 

1  FORNAT(II) 

2  F0R*'AT(I2) 

3  format (A1C,A6) 

4  F0RMAT(A10,A6»I1, 11*11*11) 

5  F0R**AT(1X*37HERR0R  IN  HEAOER  —  NO.  OF  SYSTEMS:  0  ) 

END 


0VEPLAY(GRF,2*0) 

C*«*«*«*«««*i«*«*«««««««««»««*««****«*«**«»«****»**»*»**** 

C*«*  ** 

C*  THIS  OVERLAY  PRINTS  OuT  ONE  GRAPH  COMPARING  ALL  THE 
C*  SYSTEMS  INVOLVED. 

C***  ** 

C*mmm**»m*mmm»mmm**mm*9*m*mm*m*mmm****m»**»****»*»*»9m*»* 


PROGRAM  GRAFl 
C 

C«**  CO^'MON  statements 
C 

COMMON/UN ITNO/ITTYIN* I TYOUT*IHOR* IS YS 

COMMON /HOP 1/SYSCSN* NS YS* NS uei*NSUB2*NP ARM *SYSSET(2)  * 

C  SB1SET(2) *SB2SET(2) *SYSNAM( 10*2) *SUB1NM(20*2  )  * 
t  SUB2NM<10*!0*2) * P ARN AM ( 40 *2 ) *NUH ( 40 ) *RATED(40) * 

C  YN(4C).INVERT(4C)*IN0EX 
COMMON /Para M4/SYSNRM (85* 10  ) 

C0MM0N/GRAF/VAL(7 ) ,SYST(8) * IYE ARS f 6 ) * ISYST ( 15  )  *  IS T2E ( 1  5  )  * 
I  YARRAY(ll)*XAR(«t)*RSYS*IK£Y(5)*  ICNE  (  4  >  *  I  TW  O  (  4  )  . 

C  I  THREE (4 ) *IFOUR (4 ) *IFIVE (4) *ISIXC4)*ISEVEN(4)* 

C  IEIGHTJ4)*INInE«'*)*ITEN(5J  *  S  YSN  A  I  2  >  *  SB  1  NME  ( 2  )  ,SB2NME(  2) 

C  *XC0L0N(4) *1BAU0*JTERM 
C 

c***  integer  statements 

C 

INTEGER  SYS0SN*SYSSET*SB IS ET  *SB2SET , S YS N AM  *  SUB INM , SUB2 NM * 
C  PABNAM,RATE0*yN*VAL*SYST*SYSNA,NSUM*SBlNME*SB2NME 
C  ,NSYS 
NSUM:C 

YARRAY ( 1 ) =RSYS 
CALL  INITT  {1BAU0*JTEPM) 
call  term  «JTERM,a096) 

DO  IICD  I=1*NSYS 
iin^i 
C 

c*«*  SET  Y-VALUES  FROM  SYSTEM  VALUES  ••• 

C 
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IRrS 

CALL  N0TATE(22Q0,200,IEIGHT(1I,IEIGHT(2J  » 
IFdR.GE.K’SYS)  GO  TO  280 
IRr9 

call  N0TATE(2200,lQ0.INlNE(l)tINlNE(2) ) 
IFJIR.GE.NSYS)  GO  TO  280 
IR  =  10 

call  N0TATE(22a0,C,lTEN< 1) ,1TEN(2> ) 

280  continue 

DO  212  MSYS=l,NSYS 

IF  <MSYS.LE.5)  ISYSPLiHSYS 

IF  (MSYS.GT.5J  ISYSPL=MSYS-5 

CALL  MOVABS  ( 1230,hOO-10C*(ISYSPL-1 J ) 

IF  (MSYS.GT.S)  call  MOVREL  (1200, OJ 
do  313  1=1,2 

313  SYSNA( I):SYSNAM(MSYS,I) 
call  iCUTST  (2C,SYSNA) 

212  CONTI».'UE 
C 

C«««  PRINTS  SYSTEM  SETNAMES 
C 

1101  CALL  MOVABS( 1000,500) 

CALL  A0UTST(2C,SYSSET  ) 

C 

C***  OELAY  COMMAND  NEEDS  ANY  ONE  INPUT  TO  CONTINUE  •** 
C 

CALL  TINPUT(K) 

CALL  FINITT(0.,700.  ) 

END 


0VEPLAY(GRF,3,0) 


C*mm  *• 

C*  THIS  overlay  prints  OUT  GRAPHS  OF  RATING  VALUES  VERSUS 
Co  SYSTEMS.  EACH  OF  THE  POSSIBLE  GRAPHS  INCLUDES  THE  NAMES 
C*  OF  THE  FIRST  SUBSET  AnO  THE  SYSTEM  SETNAMES. 

com*  o« 


C»«o  oo 

program  6RaF2 


C 

C*o#  COMMON  STATE»*ENTS  ooo 
C 

COMOON/UNITNO/ITTYIN, I TY CU T , IHOR , I S YS 

C0MM0N/H0RI/SYS0SN,NSYS,NSUB1 ,nSUB2,NPARM,SYSSET(2  J , 

C  SB1SFT(2),S32SET(2),SYSNAM( 10 , 2 ) , SUB  1 NM ( 20 , 2  > , 

£  SUB2NM(  10, 10,2)  ,PARNAM(40,2),NUM(4C),RATED(‘*a), 

C  YN ( 4C ), invert (40  ), INDEX 
C0MMON/PARAM4/sYSNRM(8S,  10  ) 

C0M-0N/GRAF/VAL(7),SYST(8) ,IYEARS(6) ,ISYST( 15),ISIZE(15), 
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c 

c«** 

c 


c 

c*** 

c 

21Q0 

C 

c*** 

c 

c 

c*«* 

c 


c 

c*>«* 

c 


c 

c*** 

c 


C  YAPKtY(ll),XAR{<*),RSYS,IKEY(5l,  I0NE(41  ,ITWC{4  )  , 

C  ITHREEf4) ,IF0UR14),IFIVE(4) ,ISIX(4) ,ISEvEN(4  », 

C  TEIGHT(4),ININEI**),ITE^(5),SYSNA(2»,SB1NME(2),SB2NME(2) 
t  ,IC0L0N<4 ) ,IBAU0,JTERM 

INTEGER  STATEMENTS  ♦** 

INTEGER  SYSOSN,SYSSET ,SBlS£T»sa2SET ,SYSNAM, SUB1NM,SUB2NM, 
C  PARNAM,RATE0,YN,VAL,SYST,SYSNA,NSUH,SB1NME,SB2NME 
nsum=o 

DO  100  N0W=1,NSU81 
YARRA  Y ( 1 )=RSYS 
CALL  INITT  (IBAUO,JTERMI 
CALL  TERM  (  JTERM,j»a96  ) 

DO  2100  I=1,NSYS 
II=I-*l 

SET  Y-VALUES  FROM  SYSTEM  VALUES  ••• 

YAPRAY(II) rs YSNRM (NOW  1 1 ) 

CONTINUE 


initializes  terminal  and  terminal  status  area  ••• 

CALL  BINITT 

LIMITS  OF  coordinates  OF  GRAPHS  *** 

CALL  0LIMX(0,,RSYS>1.  ) 

CALL  0LIMY(5.,1.) 

CALL  SLIMY ( 900,2775  ) 


PRINTING  OF  DATA  POINTS  ON  GRAPHS 

I0EN=NSYS/3-»2 
CALL  XOENdOEN) 
call  XFRM(l) 

IBARW0  =  6000/(3*(RSYS^2.)  ) 

CALL  VBARST  ( 8 , IBARWO  ,  IQO  ) 

CALL  CHECK(XA8,YARRAY  ) 

CALL  DSPLA Y « XAR  ,Y ARRAY  ) 

call  frame 

LABELING  OF  GRAPHS 

CALL  MCVABSf 100,2500) 

call  VLABEL(ISYST(1),ISYST(2)) 

CALL  notate  ( 1910,600, SYST( 1 ) ,SYST(2) ) 
CALL  NOTATE  ( 600 , 500 , IKE Y ( 1 ) , IKE Y ( 2 ) ) 
IR  =  1 

CALL  NOTATE (1000, 400, lONECll ,I0NE(2) ) 


318 


I'‘(1R.GE.NSYS)G0  TO  29C 
1R  =  2 

CALL  notate ( 1000, 3QQ,IThO(1),ITWOI2)) 
IP(IR.Ge.NSYS)GO  TO  29C 
IR  =  3 

CALL  N0TATE(1000,2Q0,IThREE(1)»ITHRE£(2) ) 
IF(IR,GE.NSYS)&0  TO  29C 
IR:9 

CALL  NOTATE ( 1 000 , 1 00 , IFOUR ( 1 ) , IF  OUR ( 2  )  ) 
IFCIR.GE.NSYSJGO  TO  290 
IR  =  5 

call  N0TaTE«1QOO,0,IFIVE(1»,IF1VE(2)  ) 
IF(IR.GE.NSYS>60  to  290 
IR  =  6 

CALL  NOTa TE (2200, «Q0,ISIX(1), IS  1X12)) 
1F(IR.GE.NSYS)G0  TO  290 
;Rr7 

call  N0TAT£(22QQ,300,ISEVEN(1), 1SEVEN(2) ) 
IF(IR.GE.NSYJ,)60  TO  290 
IR  =  8 

CALL  N0TAT£(2200,200,I£I6HT(1),IEIGHT(2)) 
IF ( IR .GE .NSYS  )&0  TO  290 
IR  =  9 

call  N0TATE(2200, 100,ININE (1  )  ,ININE  (2)  ) 
IF(IR.gE.NSYS)GO  To  290 
IRriO 

call  N0TATE(2  200,0,ITEN(1) ►ITENI2)  ) 

290  continue 

00  212  MSYS=1,NSYS 

IF  (MSYS.lE.S)  ISYSPL=MSYS 

IF  (MSYS.GT.5)  ISYSPL=MSYS-5 

call  POVABS  (  1230,‘*00-100*(ISYSPL*1  )  ) 

IF  (MSYS.GT.5)  call  HOVREL  (1200,0) 

CO  313  1=1,2 

313  SYSNA(1)=SYSNAH(MSYS,I) 
call  AOUTST  {20,SYSNA) 

212  continue 

C 

C***  LABELING  SYSTEM  SETNAMES 
C 

1131  call  M0VABS(1C00,500) 
call  AOUTST (20, S YSSET > 

C 

C***  LABELING  LEVEL  ONE  SUBSYSTEM  SETNAMES  *** 

C 

CALL  M0VABS(12a0,3l50) 

CALL  ACUTST(20,SB1SET  ) 

CALL  N0TAT£(21U0,3150,ICCL0N(1),1C0L0N(2)  ) 

CO  117  1RE=1,2 
C 

Cm**  RENAMING  OF  SUBSYSTEM  ONE  LEVEL  NAMES  *** 

C 
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oon  oooooooooooo  »-•  ooo 


SBINME ( IRE)=SU81NH (NOW  ,IRE  ) 

117  CONTINUE 
C 

Cw**  LASELIMG  FIRST  LEVEL  SUBSYSTEMS 
C 

CALL  H0VABS(2300f 3150) 

CALL  A0UTST(2CtSBlNME) 

mm*  DELAY  COMMAND;  NEEDS  ONE  INPUT  TO  CONTINUE 

call  TINPUT(K) 

00  CONTINUE 

CALL  FINITT(a.,7aO.  ) 

END 


OVEOLAY(GRF,4,Q) 


•  THIS  overlay  prints  «•  GRAPHS  OF  RATING  VALUES  VER 

•  SUS  SYSTEMS.  EACH  OF  THE  POSSIBLE  GRAPHS  INCLUDES 
«  THE  NAMES  OF  THE  FIRST  AND  SECOND 'SUBSETS  AND  THE 

•  system  setnames  and  names. 

***  •* 


••• 

PROGRAM  GRaE3 

COMMON  STATEMENTS  *** 

COMMON/UNITNO/ITTYIN.ITYOUT.IHOR  »ISYS 

COMMON /HOP 1/SYSDSN, NS YS , NS UBl ,NSU92»NP ARM, SYSSET12) . 

C  SBISET (2  » ,SB2SET (2 ) , S YSNAM ( 10 , 2 ) » SUB INM ( 20 . 2 ) t 
C  SUR2NM(10» 10,2) , P ARN AM ( 40 , 2 ) , NUM I  40 ) ,R ATEO (40) , 

C  YN(40) ,INVERT(4u) , index 
C0MM0N/PARAM4/SYSNRM (85, 10) 

C0MM0N/GRAF/VAL(7),SYST(e) ,IYEARS(6) ,ISYST( I 5 ) , I S IZE ( 1 5 ) , 
E  YARRAYdl)  ,XAR(4)  ,RSYS,IKEV(5),  I0NE(4),ITW0(4)  , 

C  I  THREE (4 ) , IF  OUR (4 ),IFIVE(4),ISIX(4),ISEVEN(4), 

£  IEIGHT(4 ),ININ£ (4 ) ,ITEN (5) ,SY5NA(2),S81NME(2) ,S82NME(2) 

£  ,IC0L0N(4) ,ISAU0,JTERM 

INTEGER  STATEMENTS  **• 

INTEGER  SYSPSN,SYSSET,SB1SET,S82SET,SYSNAM,SUSINM,SUB2NM, 
t  PAPNAM,RaTEO,YN,VAL, SYST,SBINME,NSUM,SB2NME,SYSN» 

NSUM=C 

INDXro 

CALL  IMTT  (I6AU0,JTERM) 
call  TEPM(JTERM,4096) 

DO  32CC  L=1,NSU61 
DO  3200  LL=l,NSUa2 
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CALL  NEWPAG 
INDXrlNDX^l 

yapray ( I ):rsys 

00  3100  in.NSYS 
iin^i 
c 

C***  SET  Y-VALUES  FROM  SYSTEM  VALUES 
C 

YARRAY(IUrSYSNRM(INOX,I) 

3100  CONTINUE 
C 

C***  INITIALIZES  TERMINAL  ANO  TERMINAL  STATUS  AREA 
C 

call  BINITT 
C 

C***  LIMITS  OF  coordinates  OF  GRAPHS 
C 

call  0LIMX(C.  ,RSYS>1.  I 
I0ENrNSYS/3*2 
call  XOENdOEN) 
call  XFRMd) 

IBARyO  =  6aOQ/(3«<RSYS-»2.)  ) 
call  VBARST  (8,IBARU0tl0Q) 
call  DLlMY(n.,i.) 
call  SLIMY(900,277S  ) 

C 

C*««  PRINTING  OF  DATA  POINTS  ON  GRAPHS 
C 

call  check JXARfYAPRAY  ) 
call  0SPLAY<XAR,YARRAY) 

CALL  frame 
C 

C*»*  LABELING  OF  GRAPHS 
C 

call  notate (1910, 600, SYST(1),SYST(2)) 

call  M0VABS(1C0,2S00) 

call  VLABEL(ISYST{1),ISYST12)) 

call  notate (600,500,IKEY (1 } ,IK£Y|2) > 

IR  =  1 

CALL  N0TATE(10C0,<(00tI0NE(l),I0NE(2)) 
IFdR.GE.NSYS  )G0  TO  260 
IR  =  2 

call  N0TATE(1C00,300,ITW0(1),ITWC(2) ) 
IF(IR.GE.NSYS)GO  TO  260 
IR  =  3 

CALL  NOT A TE ( 1 000, 200, 1  THREE (1), I  THREE (2)  ) 
IF(IR.&E.NSYS)&0  TO  260 
IR  =  ‘» 

call  notate ( ICOC, 10C,IF0UR (1 } , IF OUR (2)  ) 
IF(IR.GE.NSYS)60  To  26C 
IR=5 
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CALL  N0TATE(iaC0,0,IFlVE  (n,lFIV£(2)> 
IF(1R,GE.NSYS)S0  TO  260 
rRr6 

call  N0TATE(2200,400,1SIX11) ,IS1X(2) > 
IF(IR.GE.NSYS)GO  TO  260 
IR  =  7 

CALL  NOTATE (2200,300* ISEVEKf II tlSEVEN (2) ) 
IF(1R.GE.NSYS)G0  to  260 
IR  =  8 

CALL  N0TATE(2200,200yIEIGHT( 1  ),IEI6HT(2) I 
IFdR.GE.NSYSIGO  TO  260 
1R  =  9 

call  N0TATE(2200,100,ININE(1 ),ININE(2) I 
IFdR.GE.NSYSIGO  TO  260 
IR  =  10 

call  N0TATE(22Q0,0,ITEN( 1) ,ITEN(2I I 
260  CONTINUE 

00  212  MSYS=1,NSyS 

IF  (MSYS.LE.S)  ISYSPL=MSYS 

IF  (MSYS.6T.5)  ISYSPL=MS YS-5 

CALL  MOVASS  ( 1230,400-100*(ISYSPL-1) 1 

IF  (MSYS.GT.5l  CALL  MOWREL  (1200,0) 

DO  313  1=1,2 

313  SYSNA d )=SYSNAM(MSYS,1  ) 
call  AOUTST  (20,SYSNAI 
212  CONTINUE 
1161  CALL  M0VABS(1CQ0,500) 
call  A0UTST(2Q,SYSSET  I 
CALL  MCVABS (1200,3160) 
call  A0UTST(20,S81SET) 

CALL  NOTATE  ( 2 100 , 3 160 , 1  COLON (1 ) , ICOLON ( 2  )  ) 

00  118  ITE=1,2 

SBINME  dTE)=SU61N*'(L,  ITE  ) 

118  CONTINUE 

CALL  *'0VABS(23Q0, 31601 
CALL  A0UTST(20,S81NN£  I 
call  M0VABS(12Q0,306a  I 
CALL  A0UTST(20,SB2SET  ) 

CALL  NOTATE  ( 2 100 , 3060 , ICOLON d I , ICOLON ( 2  I  I 
CO  450  IER=1,2 

SS2NMEdE9)=SU82NM(L,LL,IER) 

450  CONTINUE 

CALL  >*0VA8S(23Q0,3060) 

CALL  A0UTST(20,Sb2NMC) 

CALL  TINPUT(K) 

3200  CONTINUE 

CALL  FINITT(0.,70Q.  ) 


ooo  r»oo  o  ooo  r»or> 


OVEPLAY  (6RF,0,0) 

P90GRAH  GRAPHTC INPUT •OUTPUT* HE ADEPTS YSNUMt TAPE 10=HEA0CR« 
C  TAPE15rSYSNUM,TAPES=lNPUT»TAPt2=0UTPUT) 


C *«*«>**«*«*•***«*•«««*«««•*•«**«»»«**«••*«*«*«******••**•«*••«** 

•** 

C«  THIS  PPQGRAH  USES  DATA  FILES  HEADER  AND  SYSNUM  TO  CREATE  A  » 

c*  vertical  bar  graph  of  system  numbers  versus  system  rating  * 

C*  VALUES*  OBTAINED  FROM  THE  main  PROGRAM  SSMP,  NORMAL  LIMITS  • 

C*  ON  problem  size  ARE  THE  SAME  AS  ALWAYS*  AND  THE  NUMBER  OF  • 

C*  graphs  PRODUCED  IS  EQUAL  TO  INDEX.  * 

C*mm 

C««««***«*»*»**««**««*««««««««««*«******««»*«»«*************»**** 

c 

COMMON/UN ITNO /ITT YIN* I TYOUTtIHDR* IS YS 

C0HM0N/H0Rl/SYS0SN*NSYS*NSUei*NSUS2*NPARM,SYSSET(2)  * 

C  SB1SET(2) ,SB2SET(2)*SYSNAH( ID » 2 > *  SUB  1 NM ( 20 , 2  )  . 

C  SUP2NH( 10*10*2 ) *PARNAH(40*2 ) •NUM(40) *RATED (40)  * 
t  YN<i40)*INVERT(40)*lNDEX 
COMMON/P ARAH4/SYSnRM( 85* 10) 

COMMON  /GRAF/  IS YST ( 1 S ) * X ARR A Y ( 4 ) *RS YS *  I B AU 0 * JTERM 

*•*  INTEGER  STATEMENTS  •** 

INTEGER  SYSOSN.SYSSET  *SB1SET*SB2SET,SYSNAM,SUB1NM* 
e  SUP2NM*PARNAM*RATE0*YN*VAL*SYST*SYSNA 
INTEGER  SB1NME*SB2NME*NSYS2 
DATA  IYES/3HYES/ 

*»•  OOES  USER  want  to  SEE  TIME  GRAPH?  ••• 

WRITE  (ITY0UT*18) 

8  format  (1X*32H00  YOU  WISH  TO  SEE  A  TIME  GRAPH?*/) 

READ  (ITTYIN,19)  lANSR 

9  format  (A3) 

IF  (lANSR.NE.lYES)  GO  TO  999 

REWIND  IHOR 
REWIND  ISYS 

READ  IN  data  FROM  HEADER  FILE 
CALL  OVERLAY  (3HGPF*l*a) 

♦**  GET  SYSNUM  VALUES  INTO  SYSNRM  *** 

DO  100  I=1*IN0EX 

READ  (ISYS*«)  (SYSNRM (I*J)*J=1*NSYS) 

100  CONTINUE 
C 

RSYS2NSYS 
WRITE  {ITY0UT*2) 

2  format  (1H  *45hENTER  CHAR/SEC  (I.E.*  300  BAUD  2  30  CHAR/SEC)*/) 

READ  (ITTYIN**)  IBAUO 
WRITE  (ITY0UT*3) 
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ooo  or»  r>or»  <0  w»-«  o  00000  000 


3  FORMAT  (IH  ♦20MENTER  TERMINAL  TYPE:»//»1H  » l<IHir<»C10»‘i012/13, 

C  /,1H  ,9H2=U014/I5»/» IH  • 3QH3=H0 lH / 1 5  blTH  GRAPHICS  MODULE,/) 
»EAD  <ITTYIN,*)  JTERM 

•••  IBAUD  AND  JTERM  ARE  USED  TO  CALL  INITT  IN  OVERLAYS 

IF  (SYSOSN.EQ.l)  60  TO  ICOO 
IF  (SYS0SN.EQ.2.AN0.NSUB1.NE.5)  60  TO  1000 
IF  (SYSOSN.EQ .3.AN0.NSUB2.NE.S)  60  TO  1000 

ERROR  CONDITIONS — PROBLEM  IS  RESTRICTED  TO  5  TIMES 

NOW  CALL  APPROPRIATE  OVERLAY 

IF  (SYSOSN.EQ. 2)  CALL  OVERLAY  (3H6RF,2,0) 

IF  (SYSOSN.EQ .3)  CALL  OVERLAY  (3H6RF,3,Q) 

60  TO  999 

000  WRITE  (ITYOUT.l) 

format  (1H  ,36HPR0BL£M  UNSUITABLE  FOR  TIME  GRAPHS  , 

C  43HHUST  HAVE  EXACTLY  5  LEVEL  1  OP  2  SUBSYSTEMS) 

99  STOP 
ENO 


*«« 


BLOCK  DATA 


**» 

»*« 


COMMON/UNITNO/ITTYIN,ITYOUT,IHOR,ISYS 

C0MM0N/H0Rl/SYS0SN,NSYS,NSUBl,NSU?2tNPARM,SYSSET (2)  , 

C  SB1SET(2),SB2SET(2) ,SYSNAH(10,2) f SUB1NM(20,2)  , 

C  SUB2NM( 10, 10,2) ,PARNAM(40,2 ) ,NUM(40)  , RATED  (40  )  , 

£  YN(40) ,INVERTt40) , INDEX 
COMMON /PAR AM^/SYSNRM( 85, 10) 

COMMON  /GRAF/  ISYST (15 ) ,XARRAY(4 ) ,RSYS, IBAUD, jTERw 
INTEGER  STATEMENTS  *♦» 

INTEGER  SYS0SN,SYSSET ,SB1SET,SB2SET,SYSNAM,SUB1NH, 

C  SUB2NM,PARNAM,RATED,YN,VAL,SYST,SYSNA 
INTEGER  SB1NME,S62NME,NSYS2 
C 

DATA  IS YST/14, 33, 89, 63, 84, 69, 77, 32, 32, 86, 65, 76, 65,69, 83/ 
DATA  TTTYIN,ITY0UT,1H0R,ISYS/2,5,10,15/ 

DATA  XAPRA Y/-1 . ,5.  , 1  .  ,  1./ 

ENO 

C 

CVE®LA Y(GRF, 1,0) 

C««««*«««*«*«*«*«*«*«*«*«*«*»«*««*«»«********»«****«**«*«** 

c***  *«* 

C»  THIS  overlay  READS  IN  THE  NECESSARY  PATA,  OUTPUT  FROM  * 

C*  THE  SYSTEM  SELECTION  MODEL  PROGRAM.  THE  DATA  FILES  * 

C*  ARE  "HEADER"  AND  "SYSNUM";  THEY  MUST  BE  ATTACHED  BE-  ♦ 
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ooo*-  ooo  oon  r»r>ooooor»n  or»o  ooo 


* 

*»« 


C*  FOPE  THE  PROGRAM  iJlLL  EXECUTE. 

C  *«* 

c*«»«***«*««**«««*«*««**«*«*»*«»« 
c*«*  ••• 

PROGRAM  REAOR 
COMMON  STATEMENTS  ••• 

com*»on/unitno/ittyin,ityout,ihor,isys 

C0MM0N/H0RI/SYS0SN,NSYS*NSUB1»NSUB2*NPARM,SYSSET(2) r 
e  SB1SET(2) tSB2SET(2) .SYSNAM( 10 , 2 ) *  SUB  1 NM ( 20 1 2 ) « 

C  SUe2NM(  1C,  10,2  )  ,PARNAH(<l0t2l  ,NUM(R0)  ,RATE0  (00  ) , 

C  YK(40>,INVERT(4a),IN0EX 
C0MM0N/06/0BNAmC(2) 
common /PARAM4/SYSNRM (8  5, 10 ) 

•••  INTEGER  statements 

INTEGER  SYSOSN, SYSSET,SBlS£T,Sa2SET,SYSNAM, SUSINM, 

C  Sue2NM, PARNAM, RATED, YNfOBNAME 

READ  IN  OATA  base  NAME 

REA0(IH0R,3) (0BNAME(M),M:1,2) 

READ  IN  SYSTEM  DESIGN  *** 

REA0(IHDR,1)SYSDSN 

•••  READ  IN  NO.  OF  SYSTEMS , SUBSYSTEMS , PAR AMETER S 

RCAD(IH0R,2)NSYS 
REA0(IH0R,2)NSUB1 
REAC(IH0R,2)NSUB2 
READ (IHOR ,2)NPARM 
IF(NSYS.EO.O)  60  TO  600 

•**  READ  IN  SETNAMES 

REA0(IHDR,3) (SYSSFT(I),I=1,2) 

IF(SYS0SN.GE.2)REA0(IH0R,3) (SBISET(I)  ,lri,2  ) 

IF(SYS0SN.E0.3)R£A0(IH0R,3)(SB2SET (I)  ,1  =  1 ,2) 

READ  IN  SYSTEM  NAMES  •*« 

DO  100  I=1,NSYS 

READ  (IHOR,  3)  (SYSNAMd  ,J|  ,J=1.2) 

00  continue 

IF(NSUS1. £0.0)60  TO  400 

READ  IN  SUBSYSTEM  LEVEL  ONE  NAMES 

DC  200  r=l,NSUBl 
PEAD(IH0R,3} (SUB1NM(I,J),J=1,2) 
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200  CONTINUE 

2F|NSUB2.EQ.0>  60  TO  4Q0 
C 

C  *«*  READ  SUBSrSTEM  L£VEL  TWO  NAHCS  *«* 

C 

00  500  K=1,NSUB1 
00  300  I=1»NSUB2 

REA0( IH0R»3) (SUB2NM(K ,I yj) • J=1,2I 
300  CONTINUE 
C 

400  CONTINUE 
C 

C  mmm  R£AC  ZN  PARAMETER  NAMES  AND  PARAMETER  CHARACTERISTICS  *** 
C 

OC  500  rri.NPARM 

REAO(  IH0P,4  )  (PARNAHd  f  J)  t  tNUM(  I)  »RATEC(  I)  tTN(  I)  , 


1 

^  INVERT!!) 

soo 

continue 

GO  TO  700 

600 

WRITEIITYOUT,S) 

CALL  EXIT 

C 

c  *•• 

c 

CALCULATE  INOEX  FOR 

POSITIONING 

700 

CONTINUE 

IF(NSUBI.EQ.O)  go  TO 

800 

IF!NSU62.E0.0)  go  TO 
IN0EX:NSu61«nSU62 
60  TO  1000 

900 

800 

INOEXSl 

60  TO  1000 

900 

INOEXrNSUBl 

1000 

CONTINUE 

•••FORMAT  statements 


F0R**AT(I1) 

F0RMAT(I2) 

FORMAT! A10,A6 ) 

format (A  10, A6,I It  II  til  til) 

FORMATdXtSTHERROR  IN  HEADER  - 

END 


-  NO.  OF  systems:  0  ) 


OVERLAY  (6RF,2,Q) 
PROGRAM  6RAF2 


C^^^  ••• 

C*  THIS  overlay  graphs  THE  CASE  2  DATA,  I  CURVE  FOR  EACH  SYSTEM,* 
C*  ON  I  GRAPH  AS  TIME  (THE  LEVEL  1  SUBSYSTEM)  VS.  SYSTE»*  VALUES.* 

C***  ••• 


or»r»i-*is»  ooo  ooo*-*  ooo  ooo  oon  ooo 


C0MH0N/UNITN0/ITTYIN,ITY0UT,1HDR,ISVS 

COHMON/HOPl/SysOSN»NSYS»NSUBl »NSu62»NPARn  ySYSSET (2 ) t 
C  SeiSET(2 ) ,SB2SCT (2) tSYSNAHf 10»2) »SUBlNM(20t2 ) * 

I  SUB2NK(13,10i2)tPARNAM(40»2)*NUH(4C) »RATC0(4Q) » 
t  YN(40)tlNV?RT(40), INDEX 
COH40N/PARAH4/SY$NRH (8S, ID) 

COHPON  /GRAP/  ISYST  (IS  )  ,XARRAY(4  )  vRSYStlBAUCyJTCR** 
•••  INTEGER  STATEMENTS 

INTEGER  SYS0SNtSYSSETtSBlSET*SB2SET«SYSNAM,SU61NHt 
C  SUB2NH»PARNAM,RATE0»YN«VAL»$YST,SYSNA 
INTEGER  SBlNHEtSB2NME»NSYS2  • 
dimension  YARRAY(6 ) tILABEL(2)»SYSNA(2t 

*»*  INITIALIZE  TEKTRONIX  SYSTEM  ••• 

call  IMTT  (IBAUDtJTERM  I 
call  TERM( JTERM«4096 J 
call  BINITT 

**•  SET  LIMITS  FOR  GRAPHS 

CALL  OLIMX  (l.,5.) 
call  OLIMY 

CALL  SLIMY  (900,2800) 

YARRAYd  )=flSyS 


SET 

UP 

Y-VALUES  • 

00 

10 

ISYSNri ,NS 

DO 

11  J=l,5 

1  YARRAY(  J-H)=SYSNRM(J,ISYSN) 

**•  SET  parameters  for  GRAPH  AND  00  IT  TO  IT 

CALL  XLAB(C) 

CALL  SYMBL(ISYSN) 

CALL  XOEN(l) 

CALL  CHECK (XARRAY,YARRAY) 

IF  (ISYSN.NE.il  GO  TO  2000 

•*M  (ONLY  CALL  OSPLAY  ON  1ST  TIME  THROUGH, ELSE  USE  CPLOT 

CALL  DSPLaY  (XARRAYfYARRAY) 

GO  TO  1999 

000  call  CPLOT  (XARRAY, YARRAY) 

999  CONTINUE 

•••  NOW  OUTPUT  SYMBOL  AND  RESPECTIVE  SYSTEM  NAME 

IF  (ISYSN.LE.5)  ISYSPL=1SYSn 
IF  (ISYSN.GT.5)  ISYSPL=ISYSN-5 
CALL  MOVABS  ( 600 , 600> 1009IS YS PL ) 
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IF  (ISYSN.GT.S)  call  HOVRCL  (1600»0) 

CALL  SYMOUT  IXSYSNtl.) 

CALL  M0V9EL  (100, -30> 

00  12  1=1.2 

12  SYSNA(I)=SYSNAH(ISYSN,Z) 

CALL  AOUTST  (20,SYSNA) 

C 

10  CONTINUE 

C 

C*»*  WRITE  TITLE, AXIS  LABELS 
C 

CO  20  1=1,5 

CALL  MOVABS  ( HRO* I I-l ) *750 , 700 > 

00  21  J=l,2 

21  ILABEL(J)=SUB1NH(I,J) 

CALL  AOUTST  (2C,ZLA6CL) 

20  CONTINUE 

C 

call  M0VABS(lC0,25a0) 

CALL  VLABEL  ( IS YST ( 1 ) , I S YS T ( 2  1) 
call  woVREL  (0,-100) 

CALL  TINPUT  (K) 

C 

C««»  TINPUT  WAITS  FOR  INPUT  OF  ANY  CHARACTER  WITH  ETX 
C 

STOP 

ENO 

C 

OVERLAY  (GRF,3,0) 

PROGRAM  GRAF3 

C*m*m***m*m****mm**mm***m**mm**m9*m*mmm»m*mmmmm*m»**«***m****m**» 
C««*  *** 

C*  THIS  OVERLAY  CREATES  (NSUBl)  GRAPHS  OF  THE  CASE  3  DATA.  *** 

C**»  *•* 

«•*****««**«**«*«***********«*******«*«**« 

C0M»«0N/UNITN0/ITTYIN,ITY0UT,IH0R,ISVS 

C0MH0N/H0R1/SYS0SN,NSYS,NSUS1,NSUB2,NPARM,SYSSET(2) , 

C  SB1SET(2 ) ,SB2SET(2) .SYSNAM( 10,2),SUB1NH(20,2) , 

C  SUB2NM(10,10,2) ,PARNAM(M0,2),NUM(A0) ,RATEO (40) , 

C  YN(4C),INVERT(4u),IN0EX 
COMMON /PARAMH/SYSNRM (85, 10) 

COMMON  /6RAF/  IS YST ( 1 5 ) , X ARR A Y (4 ) , RS YS , IB AUO , JTERM 
DIMENSION  Y ARRAY (6 ) ,IL ABEL ( 2 ) , SYSNA ( 2 ) , ICOLON ( 4  ) 

C 

C«««  INTEGER  statements  ••• 

C 

INTEGER  SYS0SN,SYSSET,SBlSET,SB2SET,SYSNAM,SUeiNM, 

C  SU92NM,PARNAM,RATE0,YN,VAL,S YST, SYSNA 
INTEGER  SB1NME,SB2NME,NSYS2 
DATA  ICOLON/3,32,32,58/ 

C 

CO  see  ITIHE=1, NSUBl 

CALL  INITT  (IBAUO, JTERM) 

CALL  BINITT 
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1 


c 

CALL  DLIwy«0.,l.) 

CALL  0LI>'X(1.,5.) 

CALL  SLIHY  000,2800) 

C 

YAPRAY{ 1 )=RSYS 
DO  10  ISYSN=1,NSYS 
DO  11  J=l,5 

11  YARRAY  (J-»1)=SYSNRM(J,ISYSN) 

C 

call  XLAB(O) 

CALL  SYMBL(ISYSN) 

CALL  CHECK  (XARRAY, YARRAY) 

IF  (ISYSN.NE.l)  GO  TO  2000 
CALL  OSPLAY  (XARRAY, YARRAY) 

GO  TO  1999 

2000  CALL  CPLOT  ( X  ARRAY  , YARRAY ) 

1999  CONTINUE 

C 

IF  (ISYSN.LE.S)  ISYSPL=ISYSN 
IF  (ISYSN.GT.5)  ISYSPL=ISYSN-' 

CALL  HOVABS  ( 600 , 6C0 -1 00» I S YSPL ) 

IF  (ISYSN.GT.S)  CALL  HOVREL  (1600,0) 

CALL  SYMOUT  (ISYSN,1.) 

CALL  MOVREL  (100,-30) 

00  12  1=1,2 

12  SYSNA(I)=SYSNAM(ISYSN,1) 
call  AOUTST  (20,SYSNA) 

10  CONTINUE 

C 

DO  20  1=1,5 

CALL  H0VA8S  ( ««9a-»  (  l-l )  *750 , 700  ) 

DO  21  J=l,2 

21  ILABEL(J)=3UB2NH(ITZME,I,J) 

call  AOUTST  (20,ILABEL) 

20  CONTINUE 

C 

CALL  MOVABS  (100,2500) 

CALL  VLA9EL  ( IS YS T ( 1 )  , ISYST ( 2  )  ) 

CALL  MOVABS  (1200,3150) 

CALL  AOUTST  (2Q,SaiSET) 

C 

DC  41  J=l,2 

41  ILABEL) J)=SU81NM (ITIME,J) 

CALL  NOTATE  ( 2 1 00 , 3 1 50 , ICOLON ( 1 ) , ICOLON ( 2  )  ) 
call  MOVABS  (2300,3150) 

CALL  AOUTST  (2Q,ILABCL) 

800  call  TINPUT(K) 

C 

STOP 

END 
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